Ereignisse 'On...'

[Daniel Göhl]

Hallo<br>
<br>
Ich habe wiedermal eine Frage für die ich vieleicht gekreuzigt werde, aber egal. <br>
<br>
Ich wollte mal fragen ob es möglich ist slebr Ereignisse zu schreiben. Der Hintergrund ist volgender:<br>
Ich schreibe ein Objekt das Netzwerk Traffik Kapselt. Ich verwende eine art Ping um festzustellen ob der Server noch lebt. Jetzt habe ich mich gefragt ob ich an der Stelle im Quellcode an der ich feststelle das der Server weg ist ein Ereignis auslösen kann, und daann dem Ereignis eine Funktion zuweisen kann???? <br>
Ich bedanke mich für jegliche Antwort!!<br><br>
Mfg<br><br>Daniel

[Falk Prüfer]

Hi Daniel,
<pre>
type
TMyClass = class(TParentClass)
...
private
FMyEvent: TNotifyEvent;
...
public
procedure Irgendwas;
property MyEvent: TNotifyEvent read FMyEvent write FMyEvent;
...
end;
...
procedure TMyClass.Irgendwas;
begin
{Hier wird das Ereignis ausgelöst, wenn eine Routine dafür existiert}
if ServerLost and Assigned(FMyEvent) then FMyEvent(Self);
...
end;
...
</pre>

Gruß Fal

[Daniel Göhl]

Hallo Falk<p>
Das ist genau was ich suche!! Vielen Dank für dein Schnelle Hilfe!!
<p>
mfg

Danie