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

TKeyStatus -

Functions

Register -

Types

TInterval
TKeyState
TUpdate

Constants

Variables


Functions


procedure Register;


Types


TInterval = 0..10000

TKeyState = (ksOn, ksOff);

TUpdate = procedure(Sender: TObject) of object

Constants


Variables