Timer: OnTimer event umleiten

[Pseudemys Nelsoni]

moin,

kann mir jemand sagen wo hier ein fehler ist?

Delphi-Quellcode:

TMyClass = class(TCustomServerSocket)
  private
    procedure pingTimer(Sender: TObject);
  end;

...

procedure TMyClass.Create(Sender: TObject);
begin
  ConArray[high(ConArray)].pong.OnTimer := pingTimer(self);
end;

?

fehler ist:

Zitat:

[Fehler] blubb.pas(313): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

[Bernhard Geyer]

Delphi-Quellcode:

procedure TMyClass.Create(Sender: TObject); 
begin 
  ConArray[high(ConArray)].pong.OnTimer := pingTimer;
end;

[Pseudemys Nelsoni]

ah, danke, ich dachte man muss self mit angeben :gruebel:

komische sache *g*...aber nun gehts

[jim_raynor]

Zitat:

Zitat von Pseudemys Nelsoni

ah, danke, ich dachte man muss self mit angeben :gruebel:

komische sache *g*...aber nun gehts

Das würde ja bedeuteten, dass er die Prozedur aufrufen soll. Das soll er aber nicht machen. Er soll nur OnTimer die Adresse von der Prozedur mitteilen.