Changed: PacketCluster接続の改善（２） #623 #624 #625

jr8ppg · Oct 1, 2024 · f2bef2e · f2bef2e
1 parent 27bcbdc
commit f2bef2e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/zlog/UComm.pas b/zlog/UComm.pas
@@ -819,7 +819,10 @@ procedure TCommForm.TelnetSessionConnected(Sender: TTnCnx; Error: Word);
       end;
 
       FConnectTime := Now;
-      timerForceReconnect.Enabled := True;
+
+      if dmZLogGlobal.Settings.FClusterForceReconnectIntervalMin > 0 then begin
+         timerForceReconnect.Enabled := True;
+      end;
    except
       on E: Exception do begin
          AddConsole(E.Message);