Quellcode kürzen... (vereinfachen), aber wie ?

[shareholder]

ich mal nen einfaches beispiel :

Delphi-Quellcode:

procedure NameAufruf (dername : String);
begin
  ShowMessage('" ' + dername + ' " ist ja nen toller Name :)');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  NameAufruf('Maria');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NameAufruf('Tom');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  NameAufruf('Silvia');
end;
...

mal angenommen, ich habe 100 kleine buttons... wie kann ich das vereinfachen
und wie bekomme ich (mit nur 1-2 codezeilen), bspw. die eigenschaften : breite, höhe und font auf
alle buttons übertragen ?

helft mir bitte, is bestimmt sehr sehr einfach
aber ich komme nicht drauf :(

thanx

[Luckie]

Erstell die Butons dynamisch in einer Schleife und weise ihnen das gleiche OnClick-Ereigniss zu. Code dazu sollte sich hier in der DP finden lassen.

[RomanK]

Hoi,
ich sags ja nur ungern aber suche mal im Forum nach FindComponent
Das sollte helfen.

:dp: