From 73529f5266940b416f6c943e1c372e1a1454f034 Mon Sep 17 00:00:00 2001
From: Yuri <yus.serebrennikov@gmail.com>
Date: Wed, 5 Jan 2022 11:21:57 +0300
Subject: [PATCH] Added a connection event when clients connect to the server.

---
 packages/fcl-web/src/websocket/fpwebsocketserver.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-web/src/websocket/fpwebsocketserver.pp b/packages/fcl-web/src/websocket/fpwebsocketserver.pp
index 9398208ea6..2c6a51a1a7 100644
--- a/packages/fcl-web/src/websocket/fpwebsocketserver.pp
+++ b/packages/fcl-web/src/websocket/fpwebsocketserver.pp
@@ -227,6 +227,8 @@ begin
     begin
     Connections.Add(Con);
     ConnectionHandler.HandleConnection(Con,True);
+    if Assigned(OnConnect) then
+      OnConnect(Sender, Con);
     end;
 end;