我只是举例我想判断一个窗体上所有的BUTTON按钮嗯,然后逐个设置顺序啦等等

解决方案 »

  1.   

    procedure TForm1.btn3Click(Sender: TObject);
    var
      i : Integer;
    begin
      for i := 0 to ComponentCount-1 do
      begin
        if self.Components[i] is TButton then
        begin
          TButton(Components[i]).Caption := 'OK';
        end;
      end;
    end;
      

  2.   

    if self.Components[i] is TButton then
        begin
          TButton(Components[i]).Caption := 'OK';
        end;
      

  3.   

    if TComponent.classType = TPanel then