1.63.0.815

[gikonavigoeson/gikonavi.git] / Giko.pas

diff --git a/Giko.pas b/Giko.pas
index c57e798..a94da67 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2064,7 +2064,7 @@ begin
 
     if FResPopupBrowser <> nil then begin
         if not(Sender is TResPopupBrowser) then begin
-            if (FResPopupBrowser.Visible) then begin
+            if ((doc <> nil) and (FResPopupBrowser.Visible)) then begin
                 if ResPopupClearTimer.Interval > 0 then begin
                     ResPopupClearTimer.Enabled := True;
                     ResPopupClearTimer.Tag := 0;