Onclick Procedure im Code aufrufen

nepleurepas · Beiträge: 164 Win XP

Hallo,

ich möchte eine onclick-procedure von einer anderen Procedure aufrufen. Also z.b.:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('')
end;

procedure aufrufen
begin
TForm1.Button1Click(Sender: Tobject);\\ so funktionierts ja leider nicht
end;

Ich weiß, ich könnte auch einfach eine dritte Procedure schaffen und diese dann von den beiden anderen aufrufen. Aber ich möchte direkt die Onclick-procedure aufrufen.

Vielen Dank für Antworten
gruß stefan

LexXis · Beiträge: 170 Erhaltene Danke: 3

markieren

Delphi-Quelltext

1:	Button1.Click;

nepleurepas · Beiträge: 164 Win XP

LexXis hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	Button1.Click;

thx, läuft

Tilman · Verfasst: Sa 06.09.08 18:18

Wobei das mit dem Click natürlich ein sonderfall ist, weil der Button eben eine Methode Click hat, welche das Eregnis ausführt - das kann man so aber nicht immer auf alle Eregnisse übertragen. Allgemeiner geht es auch so:

markieren

Delphi-Quelltext

1:	button1click(self);

Wobei statt self auch ein anderes TObject angegeben werden kann, je nach dem ob man es überhaupt braucht / abfragt. Z.B. kann man auch den sender der anderen prozedur "weiterreichen".

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

Ehemaliges Mitglied Erhaltene Danke: 1

Das ist aber schlechter Programmierstil meiner Meinung nach.

Besser wäre es den Code im dem Klickereignis auszulagern in eine externe Routine und diese dann aufzurufen, sowohl aus dem Klickereignis der Schaltfläche als auch von der anderen Stelle im Code. Dann hat man solche Problme gar nicht erst und man hat den ausführenden Code von der Oberfläche getrennt. Wenn du den Code jetzt noch in eine andere Unit auslagerst, kannst du jede Oberfläche drumrumbauen die du willst. Desweiteren erhöht das die wiederverwertbarkeit deines Codes.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme