各位先進： 在小弟的Form中，我有一、二十個DBEdit，小弟想要使這些DBEdit都 只能夠顯示資料，而不能被修改，除了使用 dbedit1.enabled:=fslase; 設定外，是否還有其他的方法可以做到?因為小弟我不想寫一堆 dbedit1.enabled:=false; dbedit2.enabled:=false; ... 謝謝!

iece您好! DBedit1,DBedit2...可全部放在panel上，可在屬性設定或在程式中設定Panel1.Enabled:= False; 或 Ture 選擇是否可被修改! 發表人 - leo2568 於 2003/11/23 18:00:38

小弟我也試過將所有dbedit元件放在panel上，但是panel上還有其他 的元件，若只是將panel.enabled設成false，panel上其他的元件也會 不能更改。

參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26973 PS、上面的小妹妹照片真可愛:)

procedure TForm1.Button1Click(Sender: TObject);
var
  j:integer;
begin
 for j := 1 to Form1.ComponentCount - 1 do
    begin
      if (Components[j] is TDBEdit) then
         (Components[j] as TDBEdit).ReadOnly:=True;
    end;
end;

TRY TRY SEE

引言:PS、上面的小妹妹照片真可愛:)

謝謝！！ 發表人 - leo2568 於 2003/11/23 20:06:40

引言:小弟我也試過將所有dbedit元件放在panel上，但是panel上還有其他 的元件，若只是將panel.enabled設成false，panel上其他的元件也會 不能更改。

當然，你還可以把其他還需要更改的元件： 例如: DBedit8.Enabled := not DBedit8.Enabled; 發表人 - leo2568 於 2003/11/23 20:10:31

您好﹗

procedure TForm1.Button1Click(Sender: TObject);
var
  j:integer;
begin
 for j := 0 to Form1.ComponentCount - 1 do
    begin
      if Form1.Components[j].ClassType := TDBEdit then
        TDBEdit(Form1.Components[j].ReadOnly := True;
    end;
end;

另外﹐您也可使用ControlCount屬性和Controls屬性來做﹕
var
  j:integer;
begin
  for j := 0 to Form1.ControlCount -1 do
    begin
      if Form1.Controls[j] is TDBEdit then
        TDBEdit(Form1.Controls[j]).ReadOnly := True;
    end;
end;

//ComponentCount和ControlCount是有一定的區別﹐前者是指目前有多少個控制物件﹐換句話講﹐就是只要某個物件的Owner是TForm﹐那就算是TForm物件的控制元件﹔而后者是指Parent是TForm物件的元件﹒ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/11/24 14:30:21

------
忻晟

iecs 你好 :    插個花, 直接設定資料元件, > < class="code"> for i := 0 to DataSet.Fields.Count-1 do DataSet.Fields[i].ReadOnly := True;