Fertige Procedure über Button ausführen?

[thiagojonas]

Hallo Leute habe da mal wieder ein kleines dummes Problem.

Ich habe ein button, mit einem onclick ereignis.
Nun möchte ich über ein anderen Button die OnCliclick procedure ausführen.
Wie mache ich das?

Mit dem Namen des Buttons geht es nicht. Z.B Name = Ok_btn und ptocedure ausführen mit:

Delphi-Quellcode:

Ok_btn;

[Die Muhkuh]

Delphi-Quellcode:

ok_btnClick(nil);

[thiagojonas]

Thanx :cheers:

[taaktaak]

Warum nil und nicht ok_btnClick(Self)?

[Die Muhkuh]

Warum Self und nicht nil? :P

Ich gehe mal davon aus, dass er, da er nicht mal wusste, wie es geht, auch nicht auf den Sender überprüft.

[taaktaak]

Ok, das ist ein Argument!
8)

[SirThornberry]

Und wenn nicht nil dann am besten gleich Ok_btn weil es ja so aussehen soll als ob der Ok_btn geklickt wurde ;-)

@thiagojonas: kannst du dem Beitrag bitte einen aussagekräftigen Titel geben? :)

[taaktaak]

Hmmmm, diesem Ansatz kann ich nicht folgen.
Es hat in jedem Fall den selben Effekt, als wenn der originale Button betätigt wurde. Als Sender sollte aber der tatsächlich Aufrufende mitgegeben werden - vielleicht braucht man diese Information später doch noch einmal...

[hoika]

Hallo,

für so eine Anforderung schreibe ich immer
eine separate Prozedur,
die halt nicht OnButton1Click heisst,
sondern im Namen die Funktion auch beschreibt.

Delphi-Quellcode:

procedure TForm1.DoSomeThing;
begin
  bla ...
end;

Beide OnClick-Methoden (oder was auch immer)
rufen dann die DoSomeThing methode auf.

Delphi-Quellcode:

procedure TForm1.Button1OnClick;  // oh Gott Button 1 ???
begin
  DoSomeThing;
end;

procedure TForm1.Button2OnClick;  
begin
  DoSomeThing;
end;

Heiko

[taaktaak]

Auch wenn es im Augenblick vielleicht etwas übertrieben erscheint,
besser ist das! :thumb:

[himitsu]

Zitat:

Zitat von hoika

Beide OnClick-Methoden (oder was auch immer)
rufen dann die DoSomeThing methode auf.

Delphi-Quellcode:

procedure TForm1.Button1OnClick;  // oh Gott Button 1 ???
begin
  DoSomeThing;
end;

procedure TForm1.Button2OnClick;  
begin
  DoSomeThing;
end;

bevor es untergeht ... OnClick-Methoden haben einen Parameter (Sender: TObject)

PS: wenn du DoSomeThing auch soeinen Parameter gibst und DoSomeThing in einer Klasse definierst (halt irgendeine Art 'ner Klassen-Methode), dann kannst du DoSomeThing dem Button auch direkt zuweisen.

Delphi-Quellcode:

T... = class(...)

public
  { Public-Deklarationen }
  procedure DoSomeThing(Sender: TObject = nil);
end;

// "..." kann auch etwas von TForm sein, muß es aber nicht

dank dem =nil im Parameter kann man DoSomeThing; auch weiterhin ohne Parameter direkt aufrufen.

Wichtig: die Sichtbarkeit der Methode muß public oder published sein
und wird =nil weggelassen muß bei direktem Aufruf der Methode der Parameter angegeben werden

[Luckie]

Die Methode von hoika ist auf alle Fälle vorzuziehen. Es ist einfach sauberer, weil die Funktionalität von der Oberfläche getrennt wird. Ausserdem sieht man gleich was passiert, wenn man der Funktion einen aussagekräftigen Namen gibt.

[himitsu]

Zitat:

Ausserdem sieht man gleich was passiert, wenn man der Funktion einen aussagekräftigen Namen gibt.

also bei mir kann man das auch

(bei Definition in der Form, kann die Prozedur direkt über den OI zugewiesen werden
und bei Definition an anderer Stelle, dann via QuellCode)