首页 > Windows开发 > 详细

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

时间:2019-11-20 20:16:15      阅读:108      评论:0      收藏:0      [点我收藏+]

在写程序的时候经常碰到这样的需求,如何使处于后台的程序出现在最前面并得到输入焦点?
我在网上搜索了很多次,大致搜到的答案如下:
一、最小化的恢复最小化
if (IsIconic(Handle)) then
  ShowWindow(Hanlde, SW_RESTORE)
二、使用BringToFront
 三、使用SetWindowPos

第一种方法有一个问题,恢复窗口后不能再次最小化。
第二种在XP下使用时只能使得任务栏标题闪烁
第三种方法不能使得窗口激活,也就是不能得到输入焦点

常用的方法是 第一种 + 第三种, 当然还是有上述的问题。
我试图找到一个简单的方法,但是最终失败了。于是只好使用了一个笨办法来解决这个问题,实际上就是在第一种 + 第三种 方法的基础上做了一点点修改。

示例代码如下:
//判断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);
//保存鼠标位置,模拟点击窗口,然后再还原鼠标位置
  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);

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

原文:https://www.cnblogs.com/wissly/p/11900361.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!