Timer eigene Prozedur als Event zuweisen

[ManuMF]

Hallo,

ich habe einen Timer erstellt und möchte ihm nun eine Prozedur
procedure EndeSenden(Sender: TObject); als Timer-Event zuweisen. An der Stelle
EndeSender.onTimer := EndeSenden; komm ich aber wegen inkompatiblen Typen 'Methodenzeiger und reguläre Prozedur' nicht weiter. Wie muss das richtig lauten?

Danke,
ManuMF

[mkinzler]

Event-Properties erwarten Methoden und keine Prozeduren.

[ManuMF]

wie hilft mir das weiter?

[mkinzler]

procedure <Klasse>.EndeSenden(Sender: TObject);

[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;

[mkinzler]

Jede beliebige. es muß halt nur eine Methode sein, z.B. auch eine Formularklasse.

[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;

[ManuMF]

Da liegt das Problem. Ich habe kein Formular zur Verfügung und verwende auch sonst keine selbst erzeugte Klasse.

[Apollonius]

Dann musst du dir eine Klasse erstellen - ohne instanziierte Klasse keine Methode.

edit: An die Spezialisten: Könnte man vielleicht doch eine normale Prozedur schreiben, die als ersten Parameter ein TObject erfordert und den Compiler mit Pointern darüber hinwegtäuschen, dass es gar keine Methode ist?

[ManuMF]

Zitat von Apollonius:

ohne instanziierte Klasse keine Methode.

OK, dann schau ich mal, ob ich es so mache. Habe nämlich gerade etwas gefunden, was den Timer eventuell überflüssig macht.