paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added checks to TScreen.MoveFormToFocusFront

Browse Source 
git-svn-id: trunk@24416 -
This commit is contained in:
mattias 2010-04-04 23:20:55 +00:00
parent 463c24c7d1
commit 887c09a87d
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/screen.inc
View File

@ -146,7 +146,9 @@ end;
procedure TScreen.MoveFormToFocusFront(ACustomForm: TCustomForm);
begin
if (Self = nil) or (ACustomForm = nil) or
(csDestroying in ACustomForm.ComponentState) then
(csDestroying in ACustomForm.ComponentState) or
(FCustomForms.IndexOf(ACustomForm)<0)
then
RaiseGDBException('TScreen.MoveFormToFocusFront');
if (FCustomForms.Count=0) or (TObject(FCustomForms[0])<>ACustomForm) then
begin
@ -166,6 +168,12 @@ end;
procedure TScreen.MoveFormToZFront(ACustomForm: TCustomForm);
begin
if (Self = nil) or (ACustomForm = nil) or
(csDestroying in ACustomForm.ComponentState) or
(FCustomForms.IndexOf(ACustomForm)<0)
then
RaiseGDBException('TScreen.MoveFormToZFront');
if (FCustomFormsZOrdered.Count = 0) or
(TObject(FCustomFormsZOrdered[0]) <> ACustomForm) then
begin