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: