Delphi使程序的窗口出现在最前面并激活


本文整理自网络,侵删。

 Delphi使程序的窗口出现在最前面并激活
var
pt, OldPt, NewPt: TPoint;
begin
//判断Application是否最小化,而不是主窗口的Handle, 使用Restore来还原
if IsIconic(Application.Handle) then
Application.Restore;

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

// 保存鼠标位置,模拟点击窗口,然后再还原鼠标位置 www.delphitop.com
GetCursorPos(OldPt);
NewPt:=Point(0, 0);
Windows.ClientToScreen(Handle, NewPt);
SetCursorPos(NewPt.X, NewPt.Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X, NewPt.Y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X, NewPt.Y, 0, 0);
SetCursorPos(OldPt.X, OldPt.Y);
end;

相关阅读 >>

Delphi unigui unicheckbox勾选

Delphi 字符串显示后5位

Delphi 10.3 调试程序时出错:unable to create process:请求的操作需要提升

Delphi mscomm 比较完整的用法例子

Delphi xe 无法编译apk提示sdk路径问题时?sdk路径配置方法

Delphi unigui服务器部署

Delphi 如何知道鼠标点击的statusbar的位置

Delphi xe6 android视频采集

Delphi fdmemtable中如何在已有的字段数据集上加入字段

Delphi superobject json操作类的基本用法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...