zoukankan      html  css  js  c++  java
  • Delphi使程序的窗口出现在最前面并激活

    在写程序的时候经常碰到这样的需求,如何使处于后台的程序出现在最前面并得到输入焦点?
    我在网上搜索了很多次,大致搜到的答案如下:
    一、最小化的恢复最小化
    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);

  • 相关阅读:
    安装xml2js出现npm ERR! code E404 npm ERR! 404 Not Found: event-stream@3.3.6
    ie的盒模型和标准模型
    vue-生命周期
    Vue2.5入门-2
    Vue2.5入门-1
    Vue2.5入门-3
    理解 ajax、fetch和axios
    sublime install package没反应,以及安装后没有出现install package选项
    6-创建官网
    numpy数组常用计算
  • 原文地址:https://www.cnblogs.com/wissly/p/11900361.html
Copyright © 2011-2022 走看看