如何取得上一个获得焦点控件的句柄？

[lliihhaaoo]

比如说我在一个应用程序里点击了其中一个Memo控件，然后又点击了自己程序里的一个btn,这时我想在这个btn的onclick事件里获得那个memo控件的句柄或相关信息，咋办？

[lliihhaaoo]

就没有相关的API?例如GetLastFocusedCtrl :(

[copy_paste]

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 1001, MOD_Win, 65); //注册全局热键"Win + A"
end;
proceudre TForm.OnClose;
begin
UnRegisterHotKey(Handle, 1001);
end;

{消息重载 WM_HOTKEY}
procedure TForm1.WMHotKey(var Msg: TMessage);
var
ActiveHandle: THandle; //当前活动窗体ThreadID
FocusHandle: THandle; //焦点控件
CurHandle: THandle; //本程序ThreadID
begin
if Msg.WParam = 1001 then //
begin
CurHandle := GetCurrentThreadID;
ActiveHandle := GetWindowThreadProcessID(GetForeGroundWindow, nil);
AttachThreadInput(CurHandle, ActiveHandle, True);
FocusHandle := GetFocus;
//SendMessage(FocusHandle, WM_GetText, 0, 0); 可以用SendMessage得到焦点控件的Text,怎么用忘了，看一个TEdit那样方法。
Memo1.Lines.Add(Format('焦点控件的Handle: %d', [FocusHandle]);
AttachThreadInput(CurHandle, ActiveHandle, False);
end;
inherited;
end;

程序运行在后台，然后mouse点中一个TMemo, TEdit之类的东东，然后按Win + A,那Handle就在Memo1中了

[copy_paste]

var
Buffer: PChar;
...
begin
...
SendMessage(FocusHandle, WM_GetText, 255, Integer(Buffer));
Memo1.Lines.Add(Format('焦点控件的Handle: %d, Text:%s', [FocusHandle, Buffer]));
...
end;

[wisonye]

要取一个获得焦点control的handle的方法如下：
（1）用GetCursorPos()涵数取得当前mouse所在的屏幕坐标
（2）用WindowFromPoint()涵数（参数是上面得到的坐标值)来返回这个window的Handle:)

[lliihhaaoo]

to copy_paste(木石三):
我不是用hotkey啊，我就是想在焦点已经变化的情况下得到上一个焦点。

[copy_paste]

你可以将FocusHandle保存，然后按Button时，拿保存的Handle来用就是了。

[铛铛爸爸]

gz

[copy_paste]

不行，我不知其它方法了。

[liaokuo]

在构件的mousemove事件里记录
看看哪个时间更晚

[lliihhaaoo]

都不是啦！假如我在IE的地址栏点了一下，然后又跑大老远到我自己的程序了点了一下，这时怎样获得IE地址栏的Handle?

[dengzhen]

如果不用hotkey，也可以用Hook来实现。

[zxb2001]

gz

[lliihhaaoo]

将FocusHandle保存？拦截这个消息是吗？似乎可行，试试！

[lliihhaaoo]

我想在Screen.OnActiveControlChange里获得，但是他好象只管自己程序里的事，顾不得全局啊

[telstar]

不用那么麻烦，定义一个指针变量，当所有控件失去焦点时，让该指针指向他自己不就得了？

[lliihhaaoo]

你怎么知道何时所有控件失去焦点（不用Hook）?

[lliihhaaoo]

up

[lliihhaaoo]

up

[baifeng]

var
hd:thandle;
buf:array[1..50] of char;
begin
hd:=findwindow(nil,'别的应用程序标题')
hd:=findwindowex(hd,0,'edit',nil); //EDIT的句柄 用SPY++查看类名及，，，
end;

[dedema]

用findwindowex凼数.