如何批量更改控件属性，在线等。。。。

[老子]

偶是这样写的，：
for I := 0 to ControlCount -1 do
begin
if (Controls[I] is TEdit) then
(controls[i] as TEdit).Enabled := enable;
if (controls[i] is TMemo) then
(controls[i] as TMemo).Enabled := enable;
if (controls[I] is TComboBox) then
(Controls[i] as TComboBox).Enabled := enable;
if (controls[i] is TCheckBox) then
(controls[I] as TCheckBox).Enabled := enable;
if (controls[i] is TRadioGroup) then
(controls[i] as TRadioGroup).Enabled := enable;
if (controls[i] is TDateTimePicker) then
(controls[i] as TDateTimePicker).Enabled := enable;
end;
咋就不起作用呢????????

[wudi_1982]

procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for I := 0 to ControlCount -1 do
begin
Controls[i].Enabled := false;

end;
end;

[wudi_1982]

如果你想加入关于类型的判断，用下面代码，
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for I := 0 to ControlCount -1 do
begin

if (Controls[i].ClassNameIs('tedit')) then
Controls[i].Enabled := false;
if (Controls[i].ClassNameIs('TMemo')) then
Controls[i].Enabled := false;
if (Controls[i].ClassNameIs('Tbutton')) then
Controls[i].Enabled := false;

end;
end;

[王集鹄]

for I := 0 to ComponentCount -1 do
begin
if (Components[I] is TEdit) then
(Components[I] as TEdit).Enabled := enable;
if (Components[I] is TMemo) then
(Components[I] as TMemo).Enabled := enable;
if (Components[I] is TComboBox) then
(Components[I] as TComboBox).Enabled := enable;
if (Components[I] is TCheckBox) then
(Components[I] as TCheckBox).Enabled := enable;
if (Components[I] is TRadioGroup) then
(Components[I] as TRadioGroup).Enabled := enable;
if (Components[I] is TDateTimePicker) then
(Components[I] as TDateTimePicker).Enabled := enable;
end;

Controls是访问放在Form上的控件,如果控件不是直接放在Form上就访问不了
可以用Components处理

[老子]

多谢啦，等我试试，成功就给分

[老子]

成功，给分，