Unter einer Procedure eine andere Procedur aufrufen

[Popov]

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;