zoukankan      html  css  js  c++  java
  • 关于类的入门例子(8): 遍历窗体中所有控件的函数

    //显示窗体中所有控件的函数
    function GetCtrls(Control: TWinControl; List: TStringList): Boolean;
    var
      i: Integer;
      obj: TWinControl;
    begin
      for i := 0 to Control.ControlCount-1 do
      begin
        obj := TWinControl(Control.Controls[i]);
        List.Add(obj.Name);
    
        //如果控件中包含其他控件, 则递归调用
        if obj.ControlCount > 0 then
        begin
          GetCtrls(obj, List);
        end;
      end;
      Result := True;
    end;
    
    
    //调用测试
    procedure TForm1.Button1Click(Sender: TObject);
    var
      list: TStringList;
    begin
      list := TStringList.Create;
      GetCtrls(Self, list);   {调用函数}
      ShowMessage(list.Text); {显示窗体中所有控件的名称}
      list.Free;
    end;
    
  • 相关阅读:
    day89
    day88
    day87
    day86
    day85
    day84
    day83
    Maven仓库汇总
    [转载]AngularJS入门教程04:双向绑定
    [转载]AngularJS入门教程03:迭代器
  • 原文地址:https://www.cnblogs.com/del/p/1037321.html
Copyright © 2011-2022 走看看