如何批量控制控件？200分(200分)

L

lizzstars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #1

我在form上放置了40个combobox（combobox1－combobox40），40个edit（eidt1－eidt40），
如何实现批量设置eidt的enabled属性与相应的combobox的checked属性相同，类似下文：
for i:=1 to 40 do
begin
if combobox1-40.checked then
edit1-40.enabled := true;
end;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 1 to 2 do
TEdit(FindComponent('Edit' + IntToStr(I))).Enabled := TCheckBox(FindComponent('CheckBox' + IntToStr(I))).Checked;
end;

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #3

var
num:integer;
begin
for num:=1 to 40 do
Tedit(FindComponent('edit1'+IntToStr(num))).Text:=IntToStr(num);
end;
自己改改

 

L

lizzstars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #4

多人接受答案了。
xianjun-150
QuickSilver-50

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #5

var aCombobox :array[0..39] of TCombobox;
aEdit :array[0..39] of TEdit;

form1.oncreate();
begin
aCombobox[0] :=Combobox1;
aCombobox[1] :=Combobox2;
aCombobox[2] :=Combobox3;
…………
aText[0] :=Edit1;
aText[1] :=Edit2;
aText[2] :=Edit3;
…………
end;
以后就用我教你怎么用了吧。