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
    

评论 (0) All

登陆 还没注册？