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

Question

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

Answer 1

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

Answer 2

这个贴子以前提过的
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;