Ob schlechter Programmierstil, das ist eine Sache für sich, aber es wird irgendwann unpraktisch. Denn nicht selten überlegt man es sich anders und was mal in Prozedur für Button1 lag, ist plötzlich etwas fehl am Platz, wenn man es sich anders überlegt und den Button entfernt, weil man z. B. den Aufruf jetzt über Menü durchführt. Und plötzlich steht da Button1Click und es gibt keinen Button.
Delphi-Quellcode:
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure ButtonClick(Sender: TObject);
end;
...
procedure TForm1.ButtonClick(Sender: TObject);
begin
if Sender = Button1 then
ShowMessage('Hallo Welt!');
if Sender = Button2 then
ShowMessage('Hallo Galaxis!');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ButtonClick(Sender);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ButtonClick(Sender);
end;