Dynamisch erzeugte Event Handler

[GeorgWa]

Hallo lieber Delphi-Praxis Community,
ich habe eine Klasse die jeweils ein Shape und Ein Timer beinnhaltet.
Diese wird je nach anforderung beliebig oft erzeugt, nun will ich eine OnTimer
Event einfügen was immer eine prozedur auslöst.
Dabei scheiter ich leider aktuell da ich nicht weis wie man einem NotifyEvent eine procedur zuordnet.

Delphi-Quellcode:

 
auto[index].TmrMovement := TTimer.Create(Form1);
  With auto[index].TmrMovement do
  begin
    enabled := true;
    interval := 30;
    name := 'TmrMovement' + IntToSTr(Index);
  end;

mit freundlichen grüßen Georg

[DeddyH]

Du kannst einen beliebigen TNotifyEvent nehmen und zuweisen.

Delphi-Quellcode:

type
  TDeineKlasse = class(TIrgendwas)
  private
    procedure TimerProc(Sender: TObject);
  ...
  end;

...

DeinTimer.OnTimer := TimerProc;

[GeorgWa]

Das war auch meine erste Idee wobei dann wenn man die
Prozedur Namen mit Klammer schreibt folgender fehler kommt:
[Fehler] Unit1.pas(76): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter' Und wenn man den Prozedur Namen mit Klammern am Ende schreibt:
[Fehler] Unit1.pas(76): Inkompatible Typen: Liste der Parameter ist unterschiedlich

[Furtbichler]

Wieso schreibst Du das mit Klammer?

[Der schöne Günther]

Kann es sein, dass du eine klassenlose Prozedur dem Event zuweisen willst? Das geht nämlich nicht. Die Definition von TNotifyEvent ist procedure(Sender: TObject) of object; . Die Methode muss also einen Parameter vom Typ TObject entgegennehmen und eine Instanzmethode einer Klasse sein.

Also nicht
procedure meineTimerProzedur(Sender:TObject) sondern z.B.
procedure TMeinFormular.meineTimerProzedur(Sender:TObject)
Den Grund dafür habe ich nie ganz verstanden. Wäre das nicht so, könnte man auch anonyme Prozeduren als Eventhandler setzen. Vielleicht ist das aber auch besser so. Würde man das brutal ausnutzen wird das sicher unübersichtlich...

[Furtbichler]

Zitat von Der schöne Günther:

Den Grund dafür habe ich nie ganz verstanden.

Eine TMethod ist einfach etwas anderes als eine TProcedure . Und wir wollen ja nicht mehr prozedural programmieren.

Ich fasse noch einmal zusammen:

Zitat von DeddyH:

Delphi-Quellcode:

...
DeinTimer.OnTimer := TimerProc;

Zitat von GeorgWa:

...wobei dann wenn man die Prozedur Namen mit Klammer schreibt folgender fehler kommt:...

Zitat von Furtbichler:

Wieso schreibst Du das mit Klammer?

Würde mal denken, es liegt an den Klammern. Seufz.

[GeorgWa]

Ok danke
so wie ihr es erklärt habt habe ich es jetzt endlich richtig verstanden