如何获得窗体内焦点所在控件的指针？

[钞票搬运工]

我想知道可以通过什么方法获得在一个窗体内焦点所在的控件的指针，也就是鼠标所在的控件的指针。请高手赐教，谢谢！

[feiba7288]

指针获取不到，句柄就可以。

[酣酣]

  for I := 0 to ComponentCount - 1 do begin
     if Components[I] is TWinControl then begin
       if TWinControl(Components[I]).Focused then 
           ……
     end;
  end;

[feiba7288]

引用 2 楼 lengyuehui 的回复:

  for I := 0 to ComponentCount - 1 do begin
     if Components[I] is TWinControl then begin
       if TWinControl(Components[I]).Focused then 
           ……
     end;
  end;

是获取其他程式的吧。。。

[随行的太阳]

句柄吧！！！

[酣酣]

鼠标的话应该是这样！

type
  TControlAccess = class(TControl);
  ……
  for I := 0 to ComponentCount - 1 do begin
    if Components[I] is TWinControl then begin
      if TControlAccess(Components[I]).MouseCapture then begin
        //
      end;
    end;
  end;

[蓝色光芒]

本进程的可以,其他进程的,由于不知道其他进程的结构,所以可以说无效. 如果是本进程内的,可以给这个HWND发送一个消息来得到这个对象的指针(TObject)