表单上有很多控件，比如有很多edit,combobox,button等，想一次把所有edit.text置为空怎么写（否则，就得每个edit都置一次），再如把所有button.edable都置为false。 ——————————— 抓住快乐！

您好!    請參考下列程式碼寫在您設定触發的事件中:

begin
  For I:=0 to Form1.ComponentCount-1 do
    begin
      if Form1.Components[I].ClassType = TEdit then
        TEdit(Form1.Components[I]).Clear;
      if Form1.Components[I].ClassType = TButton then
        TButton(Form1.Components[I]).Enabled := False;
    end;
end;

參考看看! ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/09/27 18:00:59

------
忻晟

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27022 a sir BCB大姥的範例 先看看 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

还有一个问题：如果表单上有button和toolbutton 可不可以这样写：if Form1.Components[I].ClassType = TControl then..... 即：父类不同的情况。 ——————————— 抓住快乐！

您好!    這樣似乎不行喔. 因為小弟印象之中, Button是繼承自TButton, 而ToolButton元件是繼承自TToolBar, 并不擁有同個父類.    若有錯誤, 還請各位前輩指正!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

TControl -> TWinControl -> TButtonControl -> TButton TControl -> TGraphicControl -> TToolButton    --- 歡迎光臨 KTop 研究院

感謝hagar版主的講解! 借><>===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

TButton/TToolButton 的共同父類別是 TControl 所以可以用判斷 ClassType is TControl 的方式 但前提是 From1 上只有這 TButton/TToolButton 兩種元件 否則可能其它元件也是繼承自 TControl,  那就會導致其它元件也被 Disable 了. 另一種比較快的方式, 是把所有要判斷的 TButton 放在一個 Panel 上(舉例) 那要 Disable 所有的 TButton, 就 Disable 那個 Panel 就好了 而 TToolButton 都是放在 TToolbar 上 要 Disable 所有的 TToolButton, 就 Disable 那個 TToolbar 即可.    --- 歡迎光臨 KTop 研究院

感謝hagar版主的講解!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

感谢hagar高见 ——————————— 抓住快乐！