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