有一个页面上有很多dbedit，dbcombobox（几十个），在管理员登录时可以修改，其他身份看登录就是只读的，如何用几行代码搞定？？？？

Question

如题，谢谢。

Answer 1

把这些控件放在一个Panel中，
如管理员进，则 Panel.Enable := True
否则 Panel.Enable := False

Answer 2

For i:=0 to ComponentCount-1 do  begin
            if (Components[i] is TEdit) then
                TEdit(Components[i]).ReadOnly  := True;
            if (Components[i] is TComBoBox) then
                TComboBox(Components[i]).Enabled:= False;
         end ;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  I:integer;
begin
  For i:=0 to ComponentCount-1 Do begin
    if Components[i] is TEdit then (Components[i]as TEdit).ReadOnly:=true;
    if Components[i] is Tcombobox then (Components[i]as Tcombobox).Enabled:=false;
  end;
end;