[code lang=”delphi”]Procedure TForm1.GetStatusInfo;
\nconst
\n CapPanel = 1;
\n NumPanel = 2;
\n ScrlPanel = 3;
\n DatePanel = 4;
\nbegin
\n with StatusBar1 do
\n begin
\n if GetKeyState(VK_CAPITAL) <> 0 then
\n StatusBar1.Panels[CapPanel].Text := ‘ CAP’
\n else
\n StatusBar1.Panels[CapPanel].Text := ”;
\n if GetKeyState(VK_NUMLOCK) <> 0 then
\n StatusBar1.Panels[NumPanel].Text := ‘ NUM’
\n else
\n StatusBar1.Panels[NumPanel].Text := ”;
\n if GetKeyState(VK_SCROLL) <> 0 then
\n StatusBar1.Panels[ScrlPanel].Text := ‘ SCRL’
\n else
\n StatusBar1.Panels[ScrlPanel].Text := ”;
\n StatusBar1.Panels[DatePanel].Text := FormatDateTime(‘ mmmm D, YYYYY’, now);
\n end;
\nEnd;
\n[\/code]<\/p>\n
[tags]Delphi, System, Keyboard[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
[code lang=”delphi”]Procedure TForm1.GetStatusInfo; const CapPanel = 1; NumPanel = 2; ScrlPanel = 3; DatePanel = 4; begin with StatusBar1 do begin if GetKeyState(VK_CAPITAL)…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,111,113],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3H","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/229"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=229"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/229\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=229"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=229"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=229"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}