Unit keystate |
TKeyState verion 1.0 copyright © 1996 by Alexander Meeder This non-visual component is build round Windows 'GetKeyState' API (idea from answer of Brad Stowers in Delphi news-group). properties: CapsLock (true/false) NumLock ( " ) ScrollLock ( " ) Interval (set update-interval) event: update (you can write your own code, for instance update your statusbar procedure TForm1.update(Sender: TObject); begin if KeyStatus1.CapsLock then StatusBar1.Panels.Items[0].Text := 'CAPS' else StatusBar1.Panels.Items[0].Text := ''; .... end; If you have suggestions about TKeyStatus or make changes, pleas mail me: ameeder@dds.nl
Classes |
Functions |
Register -
Types |
Constants |
Variables |
Functions |
Types |
TInterval = 0..10000
TKeyState = (ksOn, ksOff);
TUpdate = procedure(Sender: TObject) of object
Constants |
Variables |