读书人

今天汗流浃背的,想问一个关于TStatusB

发布时间: 2012-03-17 19:06:28 作者: rapoo

今天汗流浃背的,想问一个关于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

读书人网 >.NET

热点推荐