//声明:
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.
//效果图:
![26153834_jW8I.png](http://static.oschina.net/uploads/img/201409/26153834_jW8I.png)