Procedure Ausführen...

[Mitchl55]

Hallo,

ich möchte nach/in ButtonClick4 den ButtonClick5 ausführen um Quelltext
nicht doppelt zu schreiben. Eine Funktion möchte ich nicht nehmen.

So wie ich das probiere scheint das nicht zu funktionieren!

Delphi-Quellcode:

procedure TfrmMAIN.Button4Click(Sender: TObject);
begin
 Procedure TfrmMAIN.Button4Click;
end;

procedure TfrmMAIN.Button5Click(Sender: TObject);
begin
  showmessage('Test');
end;

Weiß jemand was ich ändern müßte oder ob dieses garnicht möglich ist? Den Thread Beispiel verstehe ich so nicht wirklich!

Danke & Gruß

Mitchl