paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomForm.ShowModal() use LCLIntf.IsWindow(ActiveWindow) instead ActiveWindow <> 0 for check, since ActiveWindow can dissappear in the meantime.

Browse Source 
git-svn-id: trunk@24286 -
This commit is contained in:
zeljko 2010-03-29 13:01:33 +00:00
parent 53edb14849
commit dd97a09f46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -2504,7 +2504,7 @@ begin
else else
Screen.FFocusedForm := nil; Screen.FFocusedForm := nil;
RestoreFocusState(SavedFocusState); RestoreFocusState(SavedFocusState);
if ActiveWindow <> 0 then if LCLIntf.IsWindow(ActiveWindow) then
SetActiveWindow(ActiveWindow); SetActiveWindow(ActiveWindow);
Exclude(FFormState, fsModal); Exclude(FFormState, fsModal);
end; end;