neues Ereignis in TServerSocket

[Sidorion]

0. Du Deklariert einen neuen Eventtyp TMyNewEvent=Procedure(Parm1 TParam1; param2; TParam2; usw: Tusw) of Object;
1. Du machst Dir einen Member von deinem neuen Eventtyp, in dem Du den Handler für den Event speicherst (FOnMyNewEvent: TMyNewEvent)
2. Du deklarierst eine neue Property mit deinem neuen Eventtyp, mit der man von aussen den Handler setzt (Property OnMyNewEvent: TMyNewEvent read FOnMyNewEvent write FOnMyNewEvent)
3. im Constructor setzt Du den Member auf nil (initialisierung)
--jetzt kommt der Aufruf
4. Wenn die Formatierung abgeschlossen ist, prüfst du, ob der Member asssigned ist(dann klebt ein Handler dran) und wenn ja, rufst Du den handler auf mit z.B.: FOnMyNewEvent(Parm1, param2, usw);

Du kannst quasi in diesem Fall die gespeicherte Variable als Funktion nutzen.