fix close lookup

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1032 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-12-05 06:48:21 +00:00 · 2009-12-05 06:48:21 +00:00 · 7ed85a3234
commit 7ed85a3234
parent 792b30e2a1
1 changed files with 5 additions and 4 deletions
--- a/components/rx/rxlookup.pas
+++ b/components/rx/rxlookup.pas
@ -1010,6 +1010,7 @@ begin
      if FRxPopUpForm.ShowModal = mrOk then
        OnClosePopup(true);
      TempF.Free;
+      FRxPopUpForm:=nil
 {$ENDIF}
    end
 end;