寻找简单的方法,filter消息。(50分)

  • 主题发起人 主题发起人 mimisu29
  • 开始时间 开始时间
M

mimisu29

Unregistered / Unconfirmed
GUEST, unregistred user!
1、把form上不存在控件的一切message都透到压在下面的窗口(比如desktop)上。甚至<br>对于某些控件,也能把投射到它上面的所有message也给透明到下面的另一个窗口中去。<br>2、把desktop的图标(不包括back picture)隐掉。
 
隐藏桌面图标:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; deskhandle:THandle;<br>begin<br>&nbsp; deskHandle:=Findwindow('progman',nil);<br>&nbsp; if deskhandle&lt;&gt;0 then<br>&nbsp; &nbsp; showwindow(deskhandle,sw_hide);<br>end;<br>重新显示桌面图标:<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br>&nbsp; deskhandle:THandle;<br>begin<br>&nbsp; deskHandle:=Findwindow('progman',nil);<br>&nbsp; if deskhandle&lt;&gt;0 then<br>&nbsp; &nbsp; showwindow(deskhandle,sw_show);<br>end;
 
这个办法既隐掉了图标,又把桌面背景干掉了。请注意我说过不包括back picture。
 
这个问题不是太简单就是太难,就没有人答吗!!!!!!!!!!!!!!!
 
我也知道
 
mimisu29:如果要继续请提前,否则请结束问题,谢谢
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部