![]() |
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ 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;
-
More for developers