ahh, du musst die methode nicht neu schreiben. Wenn du die Funktion überschreibst wird diese aufgerufen (somit bekommst du Kenntnis das diese aufgerufen wurde). Um nun das auszuführen was in der alten methode ausgeführt wurde musst du die funktion nicht neu schreiben sondern rufst einfach mit inherited die alte methode auf! (ich glaube dir fehlen entscheidende Grundlagen in Delphi)
Delphi-Quellcode:
type
TNet7Server = class(TServerSocket)
protected
procedure ClientDisconnect(Socket: TCustomWinSOcket); override;
[...]
procedure TNet7Server.ClientDisconnect(Socket: TCustomWinSOcket);
begin
//Hier Source plazieren der ausgeführt werden soll bevor event ausgelöst wird
inherited ClientDisconnect(Socket); //Damit wird die alte ClientDisconnect-Methode aufgerufen welche unter anderem das OnClientDisconnect auslöst
//Hier Source plazieren der ausgeführt werden soll nach dem event ausgelöst wurde
end;