【结贴】用ApplicationEvents截获窗体事件**

cdz0451 · 发表于 2008-5-7 10:13:59

怎么用 ApplicationEvents 截获窗体事件。

cdz0451 · 发表于 2008-5-7 10:42:17

这个怎么用，谁给说一下

gaihl · 发表于 2008-5-7 11:00:51

在窗体上放一个这样的控件，然后再OnMessage事件中，做你要做的处理

cdz0451 · 发表于 2008-5-7 11:17:43

用 ApplicationEvents 控件能否实现我刚才说的效果呢。

用户10分钟不用平台，自动注销

gaihl · 发表于 2008-5-7 11:29:26

楼主可以写代码到ApplicationEvents 的事件里面去试一下，如果能得到消息或信息，就可以控制吧。

cdz0451 · 发表于 2008-5-7 11:33:50

什么意思？说的详细一点，我对Del 的语法不太懂。谢谢

gaihl · 发表于 2008-5-7 11:45:17

OnShortCut事件：
procedure TMainForm.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
//如果在窗体中按了键，就会运行这里的代码
//你在这里写你的处理代码就行了
end;

cdz0451 · 发表于 2008-5-7 11:49:43

按键不就是有人使用吗？我想要的是捕获没人使用的状态，然后运行注销代码。
ApplicationEvents1 有能捕获这个状态的事件吗？

gaihl · 发表于 2008-5-7 11:53:04

可以变通一下嘛！
１．设一个计时变量
２．哪果有按键，就清除一下计时变量（就是在上面的事件写）
３．用一个Timer定时器，来判断计时变量是否大于２０分钟。大于时，注销

cdz0451 · 发表于 2008-5-7 12:01:31

哦多谢提示。
我在 procedure TMainForm.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);
事件里让Timer 重新计时是这个意思吧

		自动登录	找回密码
密码			立即注册