From 8901a0b14d1ac3c1d60860ce2aa47ef952fcf3b9 Mon Sep 17 00:00:00 2001 From: juha Date: Thu, 17 Mar 2011 14:35:06 +0000 Subject: [PATCH] LCL: make sure Application is assigned in UpdateShowInTaskBar. Part of issue #18934. git-svn-id: trunk@29892 - --- lcl/include/customform.inc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 5b68dde34e..de6e0546ac 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -827,8 +827,9 @@ procedure TCustomForm.UpdateShowInTaskBar; var Value: TShowInTaskBar; begin - if (Application.MainForm = Self) or (not HandleAllocated) or - Assigned(Parent) or (FormStyle = fsMDIChild) or not Showing then Exit; + if (Assigned(Application) and (Application.MainForm = Self)) or + (not HandleAllocated) or Assigned(Parent) or + (FormStyle = fsMDIChild) or not Showing then Exit; Value := GetEffectiveShowInTaskBar; if FRealizedShowInTaskBar <> Value then begin