简单问题：如何用for循环语句把edit1,edit2,edit3,......的enable属性一次赋予ture值？(10分)

W

wwjjwwjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #1

简单问题：如何用for循环语句把edit1,edit2,edit3,......的enable属性一次赋予ture值？

 

T

tomchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #2

procedure set_text_state(var myPanel: TPanel
var myvalue: integer);
var
i: integer;
begin
if myvalue = 0 then
begin
for i := 0 to mypanel.ControlCount - 1 do // .ComponentCount - 1 do
if mypanel.Controls is TDBEdit then (mypanel.Controls as TDBEdit).Enabled := false;
end else
begin
for i := 0 to mypanel.ControlCount - 1 do // .ComponentCount - 1 do
if mypanel.Controls is TDBEdit then (mypanel.Controls as TDBEdit).Enabled := true;
end;
end;

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #3

var
i:integer;
begin
for i:=0 to controlcount-1 do
if Controls is TEdit then
(Controls as TEdit).Enable:=true;
end;

 

W

wwjjwwjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #4

多人接受答案了。