Einzelnen Beitrag anzeigen

Mitchl55

Registriert seit: 20. Feb 2003
Ort: Meppen
159 Beiträge
 
Delphi 7 Enterprise
 
#1

Procedure Ausführen...

  Alt 4. Mär 2005, 10:36
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
  Mit Zitat antworten Zitat