paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 21:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomForm.CloseQuery query all child forms

Browse Source 
git-svn-id: trunk@25547 -
This commit is contained in:
mattias 2010-05-20 15:43:15 +00:00
parent 482773ba4b
commit 05e7dfaf66
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/include/customform.inc
View File

@ -2013,19 +2013,30 @@ end;
TCustomForm Method CloseQuery
------------------------------------------------------------------------------}
function TCustomForm.CloseQuery: boolean;
var
i: Integer;
function Check(AControl: TWinControl): boolean;
var
i: Integer;
Child: TControl;
begin
for i:=0 to AControl.ControlCount-1 do begin
Child:=AControl.Controls[i];
if Child is TWinControl then begin
if Child is TCustomForm then begin
if not TCustomForm(Child).CloseQuery then exit(false);
end else begin
if not Check(TWinControl(Child)) then exit(false);
end;
end;
end;
Result:=true;
end;
begin
if FormStyle = fsMDIForm then
begin
// Query children forms whether we can close
i:=0;
while i<DockClientCount do begin
if (DockClients[i] is TCustomForm)
and not (TCustomForm(DockClients[i]).CloseQuery) then
exit(false);
inc(i);
end;
if not Check(Self) then exit;
// TODO: mdi logic
end;
Result := True;