制作类似WinAmp一样的“磁性”窗口

1 2 下一页

　　Winamp的用户都知道,Winamp的播放列表或均衡器在被移动的时候,仿佛会受到一股磁力,每当靠近主窗口时就一下子被“吸附”过去,自动沿边对齐。我想让我的Winamp插件也具备这种奇妙特性,于是琢磨出了一

种“磁化”窗口的方法。该法适用于Delphi的各个版本。为了演示这种技术,请随我来制作一个会被Winamp“吸引”的样板程序。

　　先新建一应用程序项目,把主窗口Form1适当改小些,并将BorderStyle设为bsNone。放一个按钮元件,双击它并在onClick事件中写“Close;”。待会儿就按它来结束程序。现在切换到代码编辑区,定义几个全局变量。
　　
　　　　　var
Form1: TForm1; //“磁性”窗口
　　 LastX, LastY: Integer; //记录前一次的坐标
　　 WinampRect:TRect; //保存Winamp窗口的矩形区域
　　 hwnd_Winamp:HWND; //Winamp窗口的控制句柄
　　接着编写Form1的onMouseDown和onMouseMove事件。
　　procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton;
　　 Shift: TShiftState; X, Y: Integer);
　　const
　　 ClassName=‘Winamp v1.x’; //Winamp主窗口的类名
//如果改成ClassName=‘TApPBuilder’,你就会发现连Delphi也有引力啦！
　　begin
　　//记录当前坐标
　　LastX := X;
　　LastY := Y;
　　//查找Winamp
　　hwnd_Winamp := FindWindow(ClassName,nil);
　　if hwnd_Winamp>0 then //找到的话,记录其窗口区域
　　GetWindowRect(hwnd_Winamp, WinampRect);
　　end;
　　procedure TForm1.FormMouseMove(Sender: TObject; Shift:
TShiftState; X,
　　 Y: Integer);
　　var
　　 nLeft,nTop:integer; //记录新位置的临时变量
　　begin
　　//检查鼠标左键是否按下
　　 if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
　　 begin
　　 //计算新坐标
　　 nleft := Left X － LastX;
　　 nTop := Top Y － LastY;
　　 //如果找到Winamp,就修正以上坐标,产生“磁化”效果
　　 if hwnd_Winamp>0 then
　　 Magnetize(nleft,ntop);
　　 //重设窗口位置
　　 SetBounds(nLeft,nTop,width,height);
　　 end;
　　end;

上一篇： Delphi中的窗体移动
下一篇： 自制替换指定串函数

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有