要做个需求,界面5分钟不做任何操作 自动登出,请问如何实现? 要做个需求,界面5分钟不做任何操作 自动登出,请问如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://topic.csdn.net/u/20090814/16/c4e68c33-81dc-4778-a9af-bdca39a6f374.html timer里面时间设定好,到时间了让窗口执行关闭。 可以参考这个:http://topic.csdn.net/u/20090814/16/c4e68c33-81dc-4778-a9af-bdca39a6f374.html 窗体创建时application.onmessage = onmymsg;tmr1.enable := true;procedure Tform1.onmymsg(var msg : tmsg;var handled : boolean);begin if (msg.message = WM_KEYDOWN) or (msg.message = WM_MOUSEMOVE) or (msg.message = WM_LBUTTONDOWN) or (msg.message = WM_RBUTTONDOWN) then begin tmr1.enable := false; end;end;tmr1里面直接写你想做的事 BC的.lib文件可以在delphi中使用吗? 说服老板免费送100M邮箱给所有网民,散分 ★★★ 类运算符重载问题,高手请进!★★★ 我遇上一个很大的烦恼!是关于Tdblookupcombox的! 请问INC()这个函数是什么意思?有些什么参数? 请问:如何将EXCEL文件的某个工作表另存为其他文件,谢谢 300分 熟悉网络的高手请进 又有分给了~~我再问菜鸟问题~~一下子搞忘了~~怎么也想不起来~~ 哪有ADO的补丁? 究竟将excel另存为的代码是什么啊 程序识别网络内网和外网?
窗体创建时
application.onmessage = onmymsg;
tmr1.enable := true;procedure Tform1.onmymsg(var msg : tmsg;var handled : boolean);
begin
if (msg.message = WM_KEYDOWN) or (msg.message = WM_MOUSEMOVE) or
(msg.message = WM_LBUTTONDOWN) or (msg.message = WM_RBUTTONDOWN) then
begin
tmr1.enable := false;
end;
end;tmr1里面直接写你想做的事