根据名字，如何用递归快速找到控件？ (50分)

T

tdKno

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #1

根据名字，如何用递归快速找到控件？

 

R

renyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #2

楼主都已经知道答案了,还问什么啊

 

T

tdKno

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #3

怎样用findcomponent递归？？？

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #4

findcomponent涉及不到递归吧？你想实现什么功能呀？

 

S

seucag

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #5

用Findcomponent不需要递归啊？
给出Name就可以直接找到了
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = 'MyEdit';
begin
for i := 1 to 20 do begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;

 

T

tdKno

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #6

to seucag:
你的只能找出owner为form1的控件，我要的是：　可以找到在所有容器上的控件

 

H

han.lab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-22

• #7

FindComponent即可找到Form中的所有控件，和Owner无关的。
我想楼主是和FindControl的方法混了？
如果需要根据Owner做一些处理，可以用FindChildControl，这个就需要递归了。

 

B

boy2002cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-28

• #8

var
i:integer;
begin
for i:=0 to ComponentCount -1 do
begin
if (components is TEdit) and ((components as TEdit).Name ='Edit3') then (components as TEdit).Enabled :=true
end;
end;
这是一个找EDIT3控件的例子，前面的判断是判断的是不是要检测的控件的类，后面的检测是不是要找的控件名称。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-28

• #9

function FindComponent(const AName:string):TComponent;
还递归什么呀？

if FindComponent(AName)<>nil then//表示找到
showmessage('找到')