本文整理自网络,侵删。
开始一个新的工程,为窗体指定以下属性:
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 为当前窗口客户区捉图: getformimage
Delphi fmx 获取系统版本 android ios通用
Delphi xe8中的正则表达式提取日语(平假名,片假名,汉字)
Delphi 用nethttpclient执行post操作遇到的问题
Delphi tms web core 通过url 传递参数
更多相关阅读请进入《Delphi》频道 >>