Ajustes

Retomado a exclusão indevida do tratamento de eventos;
mateusvicente100 · May 21, 2024 · 3fcd8b3 · 3fcd8b3
1 parent 52cc2f6
commit 3fcd8b3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Bird.Socket.Client.pas b/src/Bird.Socket.Client.pas
@@ -199,10 +199,14 @@ procedure TBirdSocketClient.AddEventListener(const AEventType: TEventType; const
   case AEventType of
     TEventType.OPEN:
       begin
+        if Assigned(FOnOpen) then
+          raise Exception.Create('The open event listener is already assigned!');
         FOnOpen := AEvent;
       end;
     TEventType.MESSAGE:
       begin
+        if Assigned(FOnMessage) then
+          raise Exception.Create('The message event listener is already assigned!');
         FOnMessage := AEvent;
       end;
   else