Procedure ButtonClick(Sender: TObject) erneut aufrufen

[himitsu]

Zitat von Ykcim:

Ich hatte immer FormUnit.Procedure() versucht, aber damit kam ich nicht weiter.

kann ich garnich verstehen?

es gibt da sogar 3 einfache Varianten:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Click;
  Button1.OnClick(nil);
  Button1Click(nil);
end;

statt nil könnte man auch Button1, Sender oder sonstein Objekt verwenden ... kommt darauf an, ob man kennzeichnen will von wo aus die Ereignisprozedur aufgerufen wurde und ob/wie man den Sender in der Ereignisprozedur ausgewertet wird.