那位大虾晓得，500分送与(300分)

D

D李

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #1

如何通过指定的name(string)，在窗体中找到该控件，并返回它(TwinControl)

 

L

l_x_yuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #2

procedure TForm1.Button1Click(Sender: TObject);
begin
if Name('Button1') is TButton then
showmessage('ok');
end;

function TForm1.Name(temp: string): TWinControl;
begin
result:=form1.FindComponent(temp) as TWinControl;
end;

 

M

MilkRoad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Temp: TComponent;
WControl: TWinControl;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components;
if (Temp is TWinControl) then
begin
if Temp.Name = 'Edit1' then //你想指定的 name
begin
WControl := Temp as Twincontrol; //你想要的东西
//
end;
end;
end;
end;

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #4

同意楼上，用FindComponent

 

R

rainM

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #5

比较赞成l_x_yuan的意见

 

D

D李

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #6

接受答案了.

 

D

DarwinZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #7

MilkRoad和l_x_yuan的办法在大多数情况下管用,
但当所要找的控件的Owner不是Form1时就失效了.
可以改进一下:
function Find(Owner:TComponent; ComName:String):TComponent;
var
i:Integer;
begin
for i:=0 to Owner.ComponentCount-1 do begin
Result:=Owner.Components;
if Result.Name=ComName then exit;
Result:=Find(Result,ComName);
if Result<>nil then exit;
end;
Result:=nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Button:TButton;
begin
Button:=TButton.Create(Button1);//临时产生一个Button
Button.Name:='TestBtn';
if Find(Self,'TestBtn') is TWinControl //可以找到
then showMessage('ok');
if FindComponent('TestBtn')<>nil //这个找不到的
then ShowMessage('I find too.');
Button.Free;
end;