|
begin Result := ''; end; end; procedure TForm1.Timer1Timer(Sender: TObject); var winPos:TPoint; begin GetCursorPos(winpos); //得到当前鼠标指针的在屏幕上的坐标 //当鼠标指针下的窗体的Name等于form1.name时 if form1.name=GetFormNameAt(winpos.X,winpos.Y) then {在此我们可以为form1取一个特别的名称，以防有别的窗体名称与它相同} begin form1.Timer2.Enabled:=false; //停用Timer2 form1.Top:=0; //form1的Top与屏幕对齐 end else form1.Timer2.Enabled:=true; //开启Timer2 end; procedure TForm1.Timer2Timer(Sender: TObject); begin if form1.Top<=20 then form1.Top:=-(form1.Height-10);//将form1向上移，在屏幕上方露出10像素 end;
|
闂傚倸鍊峰ù鍥Υ閳ь剟鏌涚€ｎ偅宕岄柡宀€鍠栭、娑樷堪閸愮偓姣夋俊鐐€戦崕鏌ュ垂閸ф钃熼柣鏃囥€€閸嬫挸鈽夊▍顓т簼閹便劑宕惰閺€鑺ャ亜閺囩偞顥為悗姘炬嫹闂傚倸鍊风粈渚€骞栭銈嗗仏妞ゆ劧绠戠壕鍧楁煕閹邦垼鍤嬮柤鏉挎健閺屾稑鈽夊▎鎰▏缂傚倷璁查弲鐘诲蓟閻旂⒈鏁嶆繝濠傚枤閺嗩厼顪冮妶鍐ㄥ姷闁瑰嚖鎷�>>
正在阅读：好玩实用:Delphi模拟QQ窗体伸缩功能好玩实用:Delphi模拟QQ窗体伸缩功能
2004-02-14 09:34
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
