怎么获得窗体内焦点所在控件的指针
如何获得窗体内焦点所在控件的指针？
我想知道可以通过什么方法获得在一个窗体内焦点所在的控件的指针，也就是鼠标所在的控件的指针。请高手赐教，谢谢！
------解决方案--------------------
指针获取不到，句柄就可以。
------解决方案--------------------
------解决方案--------------------
是获取其他程式的吧。。。
------解决方案--------------------
句柄吧！！！
------解决方案--------------------
鼠标的话应该是这样！
------解决方案--------------------
本进程的可以,其他进程的,由于不知道其他进程的结构,所以可以说无效.
如果是本进程内的,可以给这个HWND发送一个消息来得到这个对象的指针(TObject)
我想知道可以通过什么方法获得在一个窗体内焦点所在的控件的指针，也就是鼠标所在的控件的指针。请高手赐教，谢谢！
------解决方案--------------------
指针获取不到，句柄就可以。
------解决方案--------------------
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)