检测Insert、Capslock、NumLock、ScrollLock状态键的状态

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, ComCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    ApplicationEvents1: TApplicationEvents;
    procedure FormResize(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin
    with StatusBar1 do
    begin
        Panels[0].Width:=Form1.Width - Panels[1].Width -Panels[2].Width-Panels[3].Width -50;
    end;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
    if GetKeyState(VK_CAPITAL) <> 0 then
      StatusBar1.Panels[1].Text := ‘ CAP‘
    else
      StatusBar1.Panels[1].text:=‘‘;

    if GetKeyState(VK_NUMLOCK) <> 0 then
      StatusBar1.Panels[2].Text := ‘ NUM‘
    else
      StatusBar1.Panels[2].Text := ‘‘;

    if GetKeyState(VK_SCROLL) <> 0 then
      StatusBar1.Panels[3].Text := ‘ SCRL‘
    else
      StatusBar1.Panels[3].Text := ‘‘;
End;

end.