Timer eigene Prozedur als Event zuweisen

[DelphiProgrammierer]

Die Prozedur muss eine Methode sein, wie z.B. in folgendem Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls,ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    myTimer : TTimer;
    procedure TimerBenachrichtigung(sender:TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  myTimer := TTimer.Create(self);
  myTimer.OnTimer := TimerBenachrichtigung;
end;

procedure TForm1.TimerBenachrichtigung(sender: TObject);
begin
  { tue irgendwas }
end;

end.

Zitat von ManuMF:

Sorry, aber wenn ich das genau wüsste, würde ich nicht fragen.

Welche Klase kann ich hier verwenden?

Falls das nicht klar sein sollte: Es ist ein ganz gewöhnlicher Timer, hier nochmal etwas mehr Code:

Delphi-Quellcode:

var EndeSender: TTimer;

initialization
   EndeSender := TTimer.Create;
   with EndeSender do
   begin
      ...
      onTimer := EndeSenden;
   end;