Results 1 to 7 of 7

Thread: Caps Lock aan/uit-detectie

  1. #1
    Reader ralphje's Avatar
    Join Date
    May 2004
    Location
    Nieuwleusen, OV Uses: Delphi 8
    Posts
    94

    Caps Lock aan/uit-detectie

    Hoe kun je bijvoorbeeld in een ballon (ballon heb ik al gevonden!) laten zien dat de caps lock toets aanstaat?

    Voorbeeldjes:

    CAPS LOCK UIT
    1. Ik zet de caps lock in dit voorbeeld uit
    2. Ik ga typen in TextBox1, geen melding

    CAPS LOCK AAN
    1. Ik zet de caps lock nu aan
    2. Ik ga typen in TextBox1
    3. De ballon met de melding 'Capslock staat aan' verschijnt

    Hoe doe ik dit?
    Ralph
    www.ralphje.nl


    Wist je dat programmeurs in de vorige eeuw naar schatting 35 miljard computerbugs hebben uitgebraakt? En wist je ook dat die bugs het bedrijfsleven alleen al in 2001 ongeveer 175 miljard dollar hebben gekost?

  2. #2
    notice-itter SvG's Avatar
    Join Date
    Apr 2002
    Location
    's-Hertogenbosch
    Posts
    4,865
    al gezocht op google? en wat kwam daar uit?
    !

  3. #3

  4. #4
    SillyMember Dirk Andries's Avatar
    Join Date
    May 2003
    Location
    De Pinte (Belgi?½)
    Posts
    7,715
    mOET ZOIETS ZIJN:
    Code:
    [DllImport('user32.dll')]
    class function GetKeyState(nVirtKey: Integer): SmallInt; external;
    
    procedure TWinForm1.TextBox1_TextChanged(sender: System.Object; e: System.EventArgs);
    const
      VK_CAPSLOCK = 20;
      OnOff: array[Boolean] of string = ('Capslock off','CAPSLOCK ON');
    begin
      Text := OnOff[GetKeyState(VK_CAPSLOCK) = 1];
    end;
    ÔÇ£All methodologies are based on fear.ÔÇØ --Kent Beck.

  5. #5
    SillyMember Dirk Andries's Avatar
    Join Date
    May 2003
    Location
    De Pinte (Belgi?½)
    Posts
    7,715
    oF/
    Code:
    Text := OnOff[Odd(GetKeyState(VK_CAPSLOCK))];
    ÔÇ£All methodologies are based on fear.ÔÇØ --Kent Beck.

  6. #6
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    dllimport moet toch onder {autobox on} ???
    Delphi 8, no kiddin!

  7. #7
    SillyMember Dirk Andries's Avatar
    Join Date
    May 2003
    Location
    De Pinte (Belgi?½)
    Posts
    7,715
    Niet noodzakelijk, dat moet gewoon voor of boven de functie (hoort bij de functie).
    Dat heeft niks te maken met het compiler directive {AUTOBOX ON/OFF}. Je kan dat directive trouwens gewoon verwijderen (default is OFF).
    ÔÇ£All methodologies are based on fear.ÔÇØ --Kent Beck.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Scroll Lock aan/uit zetten
    By Frank in forum Algemeen
    Replies: 2
    Last Post: 07-Mar-03, 20:07
  2. Detect shift lock en num lock state
    By Geert in forum Algemeen
    Replies: 2
    Last Post: 16-Apr-01, 23:22

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •