delphi 移动Windows开始按钮到任务栏中的任何位置

本文整理自网络，侵删。

 开始一个新的工程，为窗体指定以下属性：

Align = top;
width = screen.width;

然后，在OnMouseMove事件中加入以下代码：

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p: tpoint;
begin
getcursorpos(p);
movewindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),x,y,25,25,true);
end;


运行应用程序，当你的鼠标在窗体中移动时，你会发现，开始按钮被最小化了，并随着你的鼠标移动。

试试下面的，你会对桌面上发生的事情感到高兴。

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p: tpoint;
begin
getcursorpos(p);
movewindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'ReBarWindow32', nil),x,y,25,25,true);
end;
 

相关阅读 >>

Delphi cxgrid中回车键光标移到下列

Delphi使用spcomm实现串口通信 基础知识

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi 全局钩子锁定鼠标

Delphi操作access数据库

Delphi 正则表达式的匹配模式

Delphi 递归遍历 treeview树节点

Delphi 复制文件到全盘

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi实现图像反色实例4种方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 移动Windows开始按钮到任务栏中的任何位置