有这样的东东、源程序或组件

[zjpjzjcn]

各位兄台，我想找截取数据包或软件跟踪的工具或源程序与组件。
有提供这些的网站也可以。
希望各位兄台解囊帮忙。

[netlib]

下面是实现spy++源码
var
ClassName: PChar;
ptCursor: TPoint;
hWndOver: HWND;
Text: PChar;
begin
GetCursorPos(ptCursor);
hWndOver := WindowFromPoint(ptCursor);
GetMem(ClassName, 100);
GetMem(Text, 255);
try
GetClassName(hWndOver, ClassName, 100);
SendMessage(hWndOver, WM_GETTEXT, 255, LongInt(Text));
Canvas.FillRect(Rect(5, 20 , PreClassLength + 20, 40));
Canvas.FillRect(Rect(5, 40 , PreTextLength + 20, 60));
PreClassLength := Canvas.TextWidth(ClassName);
PreTextLength := Canvas.TextWidth(Text);
if PreClassLength > PreTextLength then
Width := Canvas.TextWidth(ClassName) + 20
else
Width := Canvas.TextWidth(Text) + 20;
Canvas.TextOut(5, 20, string(ClassName));
Canvas.TextOut(5, 35, string(Text));
finally
FreeMem(ClassName);
FreeMem(Text);
end;
end;

[zjpjzjcn]

netlib(河外孤星)
这个我知道了，我的意思是如何得到tpanel里的控件的类或名称。

[zjpjzjcn]

好像能得到可以得到焦点的控件，如Tlabel和Timage等没焦点的控件就得不到了。
请各位兄弟帮帮我。

[dreamfan]

无能为力了up

[njbudong]

你可以用个时钟来判断当前聚焦的控件的对象类型.
var sAct:TObject;
begin
sAct :=self.ActiveControl;
end