GetFocus - 获取当前拥有焦点的窗口的句柄

最新推荐文章于 2025-08-18 10:29:35 发布

原创最新推荐文章于 2025-08-18 10:29:35 发布 · 1.7k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi 同时被 2 个专栏收录

44 篇文章

订阅专栏

API

11 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的简单方法，通过调用GetFocus函数来获取当前拥有焦点的窗口句柄。示例代码展示了如何在一个Delphi窗体中定时更新并显示当前获得焦点的窗口句柄。

//声明:
GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄}


//举例:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWND;
begin
  h := GetFocus;
  Text := IntToStr(h);
end;

end.