Unter einer Procedure eine andere Procedur aufrufen

[Popov]

Da gibt es zwei Möglichkeiten.

Delphi-Quellcode:

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

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2Click(nil);
end;

oder

Delphi-Quellcode:

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

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2Click(Sender);
end;

Sender ist das Objekt von der die Prozedur aufgerufen hat. Bei Button3Click wahrscheinlich Button3. Das kann man ganz sicher erkennen mit

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  if Sender = Button3 then ShowMessage('Button3 wurde geklickt');

Somit ist die zweite Methode allgemein nicht falsch. Wenn es aber keine Rolle spielt, dann einfach nil als Parameter mitschicken.