Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.199 Beiträge
 
Delphi 12 Athens
 
#5

Re: Procedure ButtonClick(Sender: TObject) erneut aufrufen

  Alt 29. Jan 2009, 16:56
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat