今天汗流浃背的,想问一个关于TStatusBar简单的问题
我想用TStatusBar显示Num Lock,Caps Lock,Scroll Lock这几个键的开关状态
按一下这其中一个键,就在TStatusBar中显示开或者关
我不知道如何实现???
有会的请教一下小弟!
谢谢了
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetKeyState(VK_NUMLOCK) and $FFFF = 1 then
Caption := '开 '
else
Caption := '关 ';
end;
[解决办法]
用TRzStatusBar
