如何找到焦点所在的控件的句柄(7分)

sy0116 · 2004-05-22

如何找到焦点所在的控件的句柄？比如说目前焦点处于某程序的一个RICHEDIT上，按下热键之后自动找到这个RICHEDIT的句柄？我没分了

cwmdelpher · 2004-05-22

private     { Private declarations }     procedure GetMousePosHwndAndClassName(Sender : TPoint); procedure TForm1.GetMousePosHwndAndClassName(Sender: TPoint); var   hWnd: THandle;   aName: array [0..255] of char; begin   hWnd := WindowFromPoint(Sender);   Label1.Caption := 'Handle : ' + IntToStr(hWnd);   if boolean(GetClassName(hWnd, aName, 256)) then     Label2.Caption := 'ClassName : ' + string(aName)   else     Label2.Caption := 'ClassName : not found'; end; procedure TForm1.FormCreate(Sender: TObject); begin   Form1.FormStyle := fsStayOnTop;   Timer1.Interval := 50; end; procedure TForm1.Timer1Timer(Sender: TObject); var   rPos: TPoint; begin   if boolean(GetCursorPos(rPos)) then     GetMousePosHwndAndClassName(rPos); end;

sy0116 · 2004-05-22

鼠标不一定在要找的控件上

xj2003 · 2004-05-22

P:TPoint; ChileHandle:THandle;   GetCursorPos(P);   ChildHandle:=WindowFromPoint(P);

sy0116 · 2004-05-22

楼上的能讲清楚一点吗

xj2003 · 2004-05-22

给我你的QQ号，我的304279282

sy0116 · 2004-05-22

我的77266693

tanjinping120 · 2004-05-22

这个问题很简单！

sy0116 · 2004-05-23

很简单是什么意思啊?到底该怎么办?

workjie · 2004-05-23

bundur · 2004-05-23

Form1.ActiveControl 指向的就是当前 FORM 上焦点所在的控件

sy0116 · 2004-05-23

要找的控件不在我自己的程序上,而是在其他的程序上

bundur · 2004-05-23

ActiveWindow

sy0116 · 2004-05-23

ActiveWindow是什么啊？

刘麻子 · 2004-05-23

一个API而已： getfocus，帖我以前写一程序部分代码出来：       f1,f2,f3:longint;       S:string;       S:='字';             //得到当前焦点控减句柄发消息       f1:=GetForegroundWindow;       f2:=GetWindowThreadProcessId(f1,nil);       AttachThreadInput(GetCurrentThreadId,f2,true);       f3:=getfocus;       AttachThreadInput(GetCurrentThreadId,f3,false);       if f3 = 0 then Exit;          SendMessage(f3, $0286,(ord(S[1]) shl 8) + ord(S[2]) , 0);   完整代码在：（Delphi盒子上面也有的，不过正在弄服务器）             http://www.playicq.com/dispdocnew.php?id=14925

刘麻子 · 2004-05-23

可以不用键盘钩子，用热键即可，相关例子在这里看： http://www.delphibbs.com/delphibbs/dispq.asp?lid=2602343

sy0116 · 2004-05-23

还是刘麻子兄强，解决了，谢谢，可惜分太少了

sy0116 · 2004-05-23

接受答案了.

如何找到焦点所在的控件的句柄(7分)

sy0116

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

xj2003

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

xj2003

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

tanjinping120

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

workjie

Unregistered / Unconfirmed

bundur

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

bundur

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

Similar threads