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

gaihl · 发表于 2008-5-7 12:02:08

是这样的

cdz0451 · 发表于 2008-5-7 13:35:30

呵呵，还要麻烦你。在procedure TMainForm.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean); 事件里让Timer 重新计时的代码怎么写谢谢

gaihl · 发表于 2008-5-7 13:46:32

1.在TForm中设一个变量。nTime
2.在FormCreate事件中始化nTime := 0;
3.在ApplicationEvents1ShortCut事件中写：nTime := 0;　（清零）
4.设置Timer的Interval属性为1000　　(一秒执行一次)
5.在Timer事件中写:
Timer1.Enabled := False;
nTime := nTime + 1;
if nTime > 20 * 60 then 　　//如果大于20分钟
begin
  //写你的注消代码
  ......
  //
  Exit;
end;
Timer1.Enabled := True;

cdz0451 · 发表于 2008-5-7 13:55:03

恩按照你这么写有个问题
就是在 ApplicationEvents1ShortCut事件中写：nTime := 0; 这个是会报错、
说 Undeclared identifier "TWMKey"
什么意思？

cdz0451 · 发表于 2008-5-7 13:58:11

procedure ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);

这句报的错误

gaihl · 发表于 2008-5-7 14:00:17

到帮助里去搜ＴＷＭＫｅｙ，找到后，把它所在的　名子空间(引用单元)　写在代码中的uses 里面

cdz0451 · 发表于 2008-5-7 14:04:43

意思是少一个 TWNKey 的引用被

gaihl · 发表于 2008-5-7 14:05:21

对啊

cdz0451 · 发表于 2008-5-7 14:27:27

没有反应啊。
我在procedure ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean);
时间里写了 jsDialogs.ShowMsg('111','1');
我单击窗体空白位置没有弹出提示框啊这说明没有捕捉到啊

gaihl · 发表于 2008-5-7 14:28:23

只能得到按键

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