delphi如何遍历窗体中的所有控件?

Question

uses typinfo;for i:=0 to Form.ComponentCount-1 do
  Form.Components[i]. ...遍历各个控件的各种属性应该可以通过GetPropList和GetPropInfos函数实现
不过我没有用过。

Answer 1

for i:=0 to ComponentCount-1 do { 遍历Form组件 }
    begin
      frmComponent:=Components[i];
      if frmComponent is TLabel then { 如果组件为TLabel型则当作TLabel处理，以下同 }
      begin
        (frmComponent as TLabel).Caption:=
ReadString(Translations,frmComponent.Name+'.Caption',(frmComponent as TLabel).Caption);
      end;
      if frmComponent is TCheckBox then
      begin
        (frmComponent as TCheckBox).Caption:=
ReadString(Translations,frmComponent.Name+'.Caption',(frmComponent as TCheckBox).Caption);        
      end;
      if frmComponent is TButton then
      begin
        (frmComponent as TButton).Caption:=
ReadString(Translations,frmComponent.Name+'.Caption',(frmComponent as TButton).Caption);
        (frmComponent as TButton).Hint:=
ReadString(Translations,frmComponent.Name+'.Hint',(frmComponent as TButton).Hint);
      end;
      if frmComponent is TMenuItem then
      begin
        (frmComponent as TMenuItem).Caption:=
ReadString(Translations,frmComponent.Name+'.Caption',(frmComponent as TMenuItem).Caption);
      end;
    end;

Answer 2

for i:=0 to Form.ComponentCount-1 do  Form.Components[i]. for i:=0 to Form.ControlCount-1 do  Form.Controls[i].

Answer 3

把你的EMail给我，我可以给你发员代码

Answer 4

var i:integer;
begin
  for i:=0 to componentcount[i] do
  begin
    if components[i] is Tedit then...
    if components[i].tag=1 then ...
    //访问控件的属性
    Tedit(components[i]).enabled:=false; 
  end;
end;

Answer 5

我的EMAIL是
[email protected]
Thanks you ! (zx_wang)

Answer 6

一般可以通过tag属性来判断来判断是哪个控件！

Answer 7

一般通过.ComponentCount和.Components[i]来遍历窗体中的所有控件，
当然可以通过预定义.tag的值来区分具体的控件，比与.tag=1的是TLabel,.tag=2的是Tedit,.tag=3的是Tbutton，用is来判定控件，is进行类型转换：if mainform.Components[2] is tlabel then (mainform.Components[2] as tlabel).caption:=....