Mega Code Archive

 

Categories / Delphi / Hardware

 

Key status

Procedure TForm1.GetStatusInfo; const CapPanel = 1; NumPanel = 2; ScrlPanel = 3; DatePanel = 4; begin with StatusBar1 do begin if GetKeyState(VK_CAPITAL) <> 0 then StatusBar1.Panels[CapPanel].Text := ' CAP' else StatusBar1.Panels[CapPanel].Text := ''; if GetKeyState(VK_NUMLOCK) <> 0 then StatusBar1.Panels[NumPanel].Text := ' NUM' else StatusBar1.Panels[NumPanel].Text := ''; if GetKeyState(VK_SCROLL) <> 0 then StatusBar1.Panels[ScrlPanel].Text := ' SCRL' else StatusBar1.Panels[ScrlPanel].Text := ''; StatusBar1.Panels[DatePanel].Text := FormatDateTime(' mmmm D, YYYYY', now); end; End;