Delphi窗体置顶及失去焦点后取得焦点

weixin_34014555

于 2016-07-19 21:29:00 发布

阅读量737

点赞数

原文链接：http://www.cnblogs.com/win32pro/p/5686338.html

版权

这篇博客介绍了如何在Delphi中实现窗体置顶以及在失去焦点后重新获取焦点的功能。通过调用SetXwForegroundWindow和SetSysFocus两个函数，可以有效地控制窗体的焦点状态。内容来源于晓不得2013老师的分享和指导。

摘要由CSDN通过智能技术生成

unit u_FrmTopMostActive;

interface

uses Winapi.Windows;

implementation

// 窗体置顶
procedure SetXwForegroundWindow(AHandle: Thandle);
var
  hFgWin: Thandle;
  hFgThread: Thandle;
begin

  ShowWindow(AHandle, SW_NORMAL);

  hFgWin := GetForegroundWindow;
  hFgThread := GetWindowThreadProcessID(hFgWin, nil