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

本文整理自网络，侵删。

 
WinAPI: GetFocus - 获取当前拥有焦点的窗口的句柄
//声明:
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.
 

相关阅读 >>

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi 清除字符串两边空格或指定字符

Delphi xe安装后配置android的sdk的方法

Delphi 结构体的使用、tbitmap和tmemorystream的转换

Delphi tms web core 复制内容到剪切板

Delphi access数据库 主键

Delphi 控制台程序获取系统信息

Delphi readprocessmemory 输入进程id 输入读取地址

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi indy smtp 发送邮件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WinAPI: GetFocus - 获取当前拥有焦点的窗口的句柄