T tinytao Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-15 #1 怎样判断一个控件为 DB 控件： 我想在一个父窗体上写代码，对其继承的子窗体上的DB类的控件 的状态做统一控制；但不知怎样判断一个控件为 DB 控件。
K kidneyball Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-15 #3 参考以下代码： procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to ComponentCount-1 do if copy(Components.ClassName,1,3)='TDB' then begin Memo1.Lines.Add(Components.Name); //这里可以加入对Components控件的操作 end; end; 这个程序是在Memo1中记录所有DB控件（DELPHI原来定义的）的Name
参考以下代码： procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to ComponentCount-1 do if copy(Components.ClassName,1,3)='TDB' then begin Memo1.Lines.Add(Components.Name); //这里可以加入对Components控件的操作 end; end; 这个程序是在Memo1中记录所有DB控件（DELPHI原来定义的）的Name
