2019年7月11日 星期四

遞迴處理Controls範例

procedure ButtonClick(Sender: TObject);
  procedure pr_Controls(const Parent: TWinControl) ;
  var
    i: Integer;
  begin
    for i := 0 to Parent.ControlCount - 1 do
    begin
      if Parent.Controls[i] is TWinControl then
      begin
        if Parent.Controls[i] is TLabel then
        begin
          ...
          ...
        end;
        pr_Controls(TWinControl(Parent.Controls[i])) ;
      end;
    end;
  end;
begin
  pr_Controls(Panel1) ;
end;

沒有留言:

張貼留言