Set CAPS and NUM lock state in status bar

[ozhiker]

Hi,

I have the following code to check the current state of the caps lock and display it in my status bar - which event should I link it to so it will run whenever keys are pressed in the program (Currently I have it attached to OnFormCreate and OnPaint).

procedure TfrmEditor.CheckCapslock ();
begin
if Odd (GetKeyState (VK_CAPITAL)) then
sbStatusBar.Panels[sbpCaps].Text := 'CAPS'
else
sbStatusBar.Panels[sbpCaps].Text := '';
end;

thanks

ozhiker

 

[DelphiAaron]

the best spot to put it is most likely the forms onkeypress event, (this captures all key presses from your app) and set the forms keypreview property to true.

 

[Svanhooft]

hi,

download this free component dfsstatusbar. it has all the things you want

http://www.delphifreestuff.com/

Steph [Bigglasses]

 

[Svanhooft]

hi,

the link is not working, go to

http://www.torry.net

and search for dfsstatusbar. You can get their the complete code of this component.

Steph [Bigglasses]

 

[DelphiAaron]

sure you can get vcl's to do all the work for you, but then how can you call yourself a programmer ??

 

[ozhiker]

Hi thanks for the help guys, I have added my code to the forms OnKeyPress event - this updates the Num/Caps nicely whenever a key is pressed, just not the numlock and caps keys!!! I believe this is because it is only looking for ANSI key press? Any ideas??

thanks

ozhiker

 

[DelphiAaron]

sorry not sure about this one
maybe u could dnload a statusbar from

http://www.torry.net

and look at the code..

 

[McMerfy]

Use OnKeyDown event instead of OnKeyPress. HTH.

--- markus