|
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
键盘也能翻页，试试“← →”键
