如在一次過設定所有控件為disable

1.是主FORM嗎？如果不是設定那個FORM的ENABLE為FALSE即可。 2.如果是主Form

  var
   i:integer;
  for i:=0 to tform1.controlcount - 1 do
      tform1.controls[i].enabled := false;

------------------- 學，然後知不足。

請問你所謂的"控件"指的是什麼?Form上所有的TComponent!?,還是Form上所有的TControl??還是其他?

引言: 如在一次過設定所有控件為disable

控件指dbedit, dblookupcombo 等

插花：  

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
    begin
      if Self.Components[i] IS TDBEdit then
        TDBEdit(Self.Components[i]).Enabled:=false;
      if Self.Components[i] IS TDBLookupComboBox then
        TDBLookupComboBox(Self.Components[i]).Enabled:=false;
    end;
end;
 

也可以用FindComponent方法： 比如说(FindComponent('DBEdit' strtoint(i)) as TDBEdit).Name:='test'; 个人比较喜欢用上面那种，试试看 <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================