paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: attempt to fix bug #0013162 (MainForm with several invisible forms restoring produces exception)

Browse Source 
git-svn-id: trunk@18662 -
This commit is contained in:
paul 2009-02-13 13:22:07 +00:00
parent 18b9f259d5
commit a0ffd5e9a7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/screen.inc
View File

@ -635,10 +635,10 @@ end;
procedure TScreen.RestoreLastActive; procedure TScreen.RestoreLastActive;
begin begin
if FLastActiveControl <> nil then if (FLastActiveControl <> nil) and FLastActiveControl.CanFocus then
FLastActiveControl.SetFocus FLastActiveControl.SetFocus
else else
if FLastActiveCustomForm <> nil then if (FLastActiveCustomForm <> nil) and FLastActiveCustomForm.CanFocus then
FLastActiveCustomForm.SetFocus; FLastActiveCustomForm.SetFocus;
end; end;