论坛 › Delphi交流 › 按任意键退出屏幕保护程序要怎么写那

不吃荤的猫 发表于 2013-5-6 23:30:23

按任意键退出屏幕保护程序要怎么写那

按任意键退出屏幕保护程序要怎么写那

aminghanhua 发表于 2013-5-14 15:06:17

ApplicationEvents控件procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message=WM_KEYDOWN)or(Msg.message=WM_LBUTTONDOWN)or(Msg.message=WM_RBUTTONDOWN)then
begin
    close;    //Do something
end;
end;

沉默的风采 发表于 2013-5-15 10:45:36

aminghanhua 发表于 2013-5-14 15:06 static/image/common/back.gif
ApplicationEvents控件

非常不错。。。

查看完整版本: 按任意键退出屏幕保护程序要怎么写那