给所有组件设置某个属性的值

[ggqqll]

如何一次就给所有组件设置某个属性的值？比如某个窗体的所有文本框的Enabled属性设为false？

[wzrlover]

var
i:integer;
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as Tedit).Enabled:=false;

[pankane]

按住shift点击所有的文本筐就可以改了

[yangkunjie]

这个贴子以前提过的
uses
TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to TabSheet1.ControlCount - 1 do
if IsPublishedProp(TabSheet1.Controls[I], 'Enabled') then
SetOrdProp(TabSheet1.Controls[I], 'Enabled', Ord(False));
end;
或者
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to componentcount-1 do
begin
Tmemo(Components[i]).enabled:=false;
TMemo(Components[i]).color:=clred;
end;
end;