<li id="j64py"><acronym id="j64py"></acronym></li>

  • <em id="j64py"></em>

    <em id="j64py"><acronym id="j64py"></acronym></em>
    <dd id="j64py"></dd>
    <em id="j64py"><acronym id="j64py"><input id="j64py"></input></acronym></em>
    <rp id="j64py"><object id="j64py"><blockquote id="j64py"></blockquote></object></rp>
    <button id="j64py"><acronym id="j64py"></acronym></button>
    捐助郴維網
    感謝您對郴維網的支持,你的支持將是郴維網持續發展的動力!
    二維碼
    ×
    當前位置:郴維網 >基礎知識 > 正文
    9 2020.03

    關于類的入門例子(8): 遍歷窗體中所有控件的函數

    點擊次數:703 更新時間:2020-3-9 18:51:07  【打印此頁
    //顯示窗體中所有控件的函數
    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;
    
    Tips
    郴維網為您提供各類專業服務:
    軟件開發,電腦配件銷售,WIFI路由器銷售,上門電腦維修,上門安裝系統,系統安裝,軟、硬件安裝,電腦除塵清灰,顯示器維修,WIFI安裝調試,服務器維護,數據恢復,密碼破解,網絡布線,網絡檢修,打印機維修,打印機加碳粉,蘋果電腦安裝系統,蘋果電腦安裝雙系統,監控安裝維護,電腦外包,筆記本電腦維修,餐飲、美容行業軟件安裝 等。。。。。。
    點擊次數:703 更新時間:2020-3-9 18:51:07  【打印此頁
    關鍵詞推薦:郴州電腦城 郴州電腦維修公司 維修電腦公司 郴州軟件開發 上門電腦維修 上門安裝系統 筆記本電腦維修 郴州打印機維修 打印機加碳粉 電腦安裝雙系統 蘋果電腦雙系統 液晶顯示器維修 聯想筆記本維修 聯想筆記本維修電話 戴爾筆記本維修電話 郴州戴爾筆記本維修 戴爾筆記本郴州維修點 華碩筆記本維修點 郴州華碩筆記本維修 郴州筆記本上網維修
    亚洲成a人片77777,玩弄漂亮少妇高潮大叫,国产重口老太和小伙,两个黑人挺进校花体内np