paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 17:48:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: CloseQuery: query docked forms

Browse Source 
git-svn-id: trunk@23033 -
This commit is contained in:
mattias 2009-12-08 16:00:32 +00:00
parent efd8836a89
commit 0eee01a3b4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customform.inc
View File

@ -1719,10 +1719,19 @@ end;
TCustomForm Method CloseQuery TCustomForm Method CloseQuery
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TCustomForm.CloseQuery: boolean; function TCustomForm.CloseQuery: boolean;
var
i: Integer;
begin begin
if FormStyle = fsMDIForm then if FormStyle = fsMDIForm then
begin begin
// Query children forms whether we can close // 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;
// TODO: mdi logic // TODO: mdi logic
end; end;
Result := True; Result := True;