Ja, da ist ein Knoten, der hat aber nichts mit Interfaces zu tun.
Delphi-Quellcode:
FOnTimer: TNotifyEvent;
procedure SetOnTimer(Value: TNotifyEvent);
//...
property OnTimer: TNotifyEvent read FOnTimer write SetOnTimer;
end;
// ...
constructor TSPS.Create;
begin
inherited Create;
Timer := TTimer.Create(nil);
Timer.OnTimer := OnTimer;
Du weist im Konstruktor den Wert von OnTimer, also FOnTimer als Ereignisbehandlung für OnTimer des Timers zu. Zu dem Zeitpunkt ist da allerdings nichts drin, deshalb wird der Timer nie gefeuert.
In SetOnTimer, also dem Setter der Property, rufst du wiederum die Interfacemethode auf. Aber der Setter wird ja nie ausgelöst, zudem hat das nichts mit den Timerevents zu tun.
Langer Rede kurzer Sinn:
Delphi-Quellcode:
TSPS = class(TObject)
private
FTimer: TTimer;
procedure TimerEvent(Sender: TObject);
public
constructor Create;
destructor Destroy; override;
end;
// Konstruktor
FTimer := TTimer.Create(nil);
FTimer.OnTimer := TimerEvent;
FTimer.Enabled := True;
FTimer.Interval := 2000;
// Eventbehandlung
procedure TSPS.TimerEvent(Sender: TObject);
begin
BPLClient.Host.TimerEvent;
end;