From 106d63eccebf182d278d341930a0c7286c9bd23d Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 10 May 2004 08:10:07 +0000 Subject: [PATCH] added nil check for Deactivate git-svn-id: trunk@5452 - --- components/synedit/syncompletion.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/components/synedit/syncompletion.pas b/components/synedit/syncompletion.pas index c13eaf2ef3..5052872d2c 100644 --- a/components/synedit/syncompletion.pas +++ b/components/synedit/syncompletion.pas @@ -338,7 +338,9 @@ procedure TSynBaseCompletionForm.Deactivate; begin Visible := False; {$IFDEF SYN_LAZARUS} - SetCaretRespondToFocus(TCustomSynEdit(FCurrentEditor).Handle,true); + if (FCurrentEditor<>nil) and (TCustomSynEdit(fCurrentEditor).HandleAllocated) + then + SetCaretRespondToFocus(TCustomSynEdit(FCurrentEditor).Handle,true); {$ENDIF} end;