1,183
社区成员
发帖
与我相关
我的任务
分享屏保的问题..(200分)搞定再开贴.
做一个屏保程序. 在其中要监测键盘与鼠标. 程序如下:
procedure TForm1.Detect(var Msg:TMsg; var Handled:boolean);
begin
if (Msg.message = WM_KEYDOWN) or (Msg.message = WM_MOUSEMOVE) then
Self.Close;
end;
现在我把这个处理过程赋给 Application.OnMessage 如下:
Application.OnMessage := Self.Detect;
问题:
这一行语句放到哪里好??
我试过放在 Form 的
OnShow、OnCreate、OnActive 事件内，但全部是屏幕一闪窗口就关了。
是没放对地方还是要加其它的代码？？
procedure TForm1.Detect(var Msg:TMsg; var Handled:boolean);
begin
if (Msg.message = WM_KEYDOWN) or (Msg.message = WM_MOUSEMOVE) then
Self.Close;
end;
现在我把这个处理过程赋给 Application.OnMessage 如下:
Application.OnMessage := Self.Detect;
问题:
这一行语句放到哪里好??
我试过放在 Form 的
OnShow、OnCreate、OnActive 事件内，但全部是屏幕一闪窗口就关了。
是没放对地方还是要加其它的代码？？
...全文
请发表友善的回复…
发表回复
jackie168 2003-09-15
- 打赏
- 举报
來了，也隨便說說，呵。。。。
http://expert.csdn.net/Expert/topic/2256/2256370.xml?temp=.1139032
http://expert.csdn.net/Expert/topic/2256/2256370.xml?temp=.1139032
LSF1982 2003-09-14
- 打赏
- 举报
实在没法就用计时器
uyiyygyxk 2003-09-14
- 打赏
- 举报
TO
能否告诉我正规方法??
本人感激不尽
能否告诉我正规方法??
本人感激不尽
cmain83 2003-09-14
- 打赏
- 举报
窗体创建一段时间后再把过程赋给它就行了
FrameSniper 2003-09-13
- 打赏
- 举报
你写屏保用的什么方法，肯定不是正规方法！
FrameSniper 2003-09-13
- 打赏
- 举报
Sorry,没有看清楚题意！
先让显示一段时间后在关闭就OK了！
先让显示一段时间后在关闭就OK了！
FrameSniper 2003-09-13
- 打赏
- 举报
哥们，给你个方法，直接进窗口过程WndProc进行捕获就可以了，如下：
type
TForm1 = class(TForm)
protected
procedure WndProc(var Message: TMessage); override;
end;
....
procedure TForm1.WndProc(var Message: TMessage);
begin
Inherited;
with Message do
case Msg of
WM_KEYDOWN,WM_MOUSEMOVE: SomeCodeImplementYourFunctionHere;
end;
end;
这里需要对窗口过程进行覆盖！
type
TForm1 = class(TForm)
protected
procedure WndProc(var Message: TMessage); override;
end;
....
procedure TForm1.WndProc(var Message: TMessage);
begin
Inherited;
with Message do
case Msg of
WM_KEYDOWN,WM_MOUSEMOVE: SomeCodeImplementYourFunctionHere;
end;
end;
这里需要对窗口过程进行覆盖！
lxpbuaa 2003-09-13
- 打赏
- 举报
刚启动的时候你在窗体上移动了鼠标，当然马上关闭了。你应该在窗体显示（或者创建）一段时间后再设置Application.OnMessage
—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————
—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————
