如何实现类似QQ的功能?(20分)

即鼠标不在窗体上时窗体自动缩小

你可用钩子函数去做，去找点资料，很多的

没有这么复杂吧?我在CSDN上找了个不用钩子的,比较简单了,但我还想要更简单的<br>http://www.csdn.net/develop/Read_Article.asp?Id=23787

CSDN上这篇文章是够简单的，不过它没有办法实现这个功能

这个问题，很简单的嘛。<br>procedure TMainForm.TimerTimer(Sender: TObject);<br>begin<br>&nbsp; if MainForm.Top&lt;=20 then<br>&nbsp; &nbsp; MainForm.Top:=-(MainForm.Height-10);//将form1向上移，在屏幕上方露出10像素<br>end;<br><br>procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,<br>&nbsp; Y: Integer);<br>begin<br>try<br>&nbsp; if MainForm.Top=-(MainForm.Height-10) then<br>&nbsp; &nbsp; MainForm.Top:=0;<br>except end;<br>end;<br>这么整就八九不离十了，差不多了。

同意loginfree &nbsp;Timer的响应也是很优先的。。 不去再写DLL<br>这样处理简单些