Mega Code Archive

 

Categories / Delphi / VCL

 

Set property for all components

Title: Set property for all components Change a Caption and Width properties for all components of TButton type. Realization: procedure TForm1.BitBtn1Click(Sender: TObject); var Counter,Bt: Integer; begin Bt:=0; for Counter:=0 to Pred(ComponentCount) do if Components[Counter] is TButton then with TButton(Component[Counter]) do begin Inc(Bt); Caption:='Hello '+IntToStr(Bt); Width:=150; end;