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
ma.netize(nleft,ntop);
//重设窗口位置
setbounds(nleft,ntop,width,height);
end;
end;
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
