Delphi实现QQ窗体的缩入伸出功能
2011-09-20 10:20
260 查看
//自定义函数GetFormNameAt,获得鼠标针指下窗体的Name function GetFormNameAt ( X, Y : integer ) : string; var P:TPoint; W:TWinControl; begin P.X := X; P.Y := Y; W := FindVCLWindow(P); //得到鼠标指针下的VCL可视组件 if ( nil <> W ) then begin while w.Parent<>nil do //当W的上级Parent不为空时就继续往上找 w:=w.Parent; Result := W.Name;//最后返回窗体的名称Name end else begin Result := ’’; end; end; procedure TForm1.Timer1Timer(Sender: TObject); var winPos:TPoint; begin if (form1.Top<=3) or (form1.Left>=screen.Width-form1.Width-3) then //判斷 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; end; procedure TForm1.Timer2Timer(Sender: TObject); begin if form1.Top<=20 then form1.Top:=-(form1.Height-10);//将form1向上移,在屏幕上方露出10像素 end;
相关文章推荐
- [转]Delphi实现QQ窗体的缩入伸出功能
- QQ窗体的缩入伸出功能之delphi实现
- 实现QQ窗体的缩入伸出功能
- 实现QQ窗体的缩入伸出功能
- 实现QQ窗体的缩入伸出功能(文章来自csdn) 选择自 lovecdw 的 Blog
- 实现QQ窗体的缩入伸出功能
- 实现QQ窗体的缩入伸出功能[转载]
- 实现QQ窗体的缩入伸出功能
- 实现QQ窗体的缩入伸出功能
- Delphi模拟QQ窗体伸缩功能
- Java实现窗体隐藏,功能类似于QQ窗口自动隐藏
- C#类似QQ窗体抖动功能的实现
- winform实现任务栏隐藏、通知栏图标及右键、类似QQ隐藏窗体等功能
- 实现QQ中消息窗体闪烁功能 转
- 用C#代码实现类似QQ窗体的“上、左、右”停靠功能
- 实现QQ中消息窗体闪烁功能(转)
- C#-WinForm登录窗体实现记住密码的功能(仿QQ实现)
- C#-WinForm登录窗体实现记住密码的功能(仿QQ实现)
- 用Delphi模拟QQ窗体伸缩功能
- 需要这样一个记录本-10 delphi窗体停靠Dock功能实现