如何通过句柄访问控件对象实例？(100分)

Z

zuoyexingchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #1

[?]如题。

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #2

你只有在你的Form里搜索一下了.
function tform1.FindControlbyHandle(aHandle:HWND):TWinControl;
var
i:integer;
begin
Result := nil;
for i := 0 to self.ComponentCount - 1 do
if self.Components is TWinControl then
if TWinControl(self.Components).Handle = aHandle then
begin
Result := TWinControl(self.Components);
break;
end;
end;

 

Z

zuoyexingchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #3

还有其它的方法吗？

 

穿

穿越沦陷的爱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #4

FindControl() 可以
var
h: DWORD;

h := FindWindow('TForm1', 'Form1');
Label1.Caption := IntToStr(FindControl(h).Width);

 

Z

zuoyexingchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #5

谢谢大家的指导。