Eine Eigenschaft von mehreren Objekten ändern

[StefanDP]

ungefähr so:

du brauchst 5 buttons, das 5te bekommt folgende OnClick:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  n: Integer;
begin
  for n := 1 to 4 do
    (FindComponent('Button' + IntToStr(n)) as TButton).Caption := 'Nummer: ' + IntToStr(n);
end;

stefan