Personale/Router4Delphi
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Router4Delphi.git synced 2025-12-19 08:43:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Set Form.parent to nil on remove object

Browse Source
This commit is contained in:
juliocandrade@gmail.com 2022-12-02 16:56:36 -03:00
parent 574146d906
commit 9787e23c32
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Router4D.Helper.pas
View File

@ -30,7 +30,10 @@ begin
for lIndex := Self.ControlCount - 1 downto 0 do for lIndex := Self.ControlCount - 1 downto 0 do
begin begin
if (Self.Controls[lIndex] is TForm) then if (Self.Controls[lIndex] is TForm) then
begin
(Self.Controls[lIndex] as TForm).Close; (Self.Controls[lIndex] as TForm).Close;
(Self.Controls[lIndex] as TForm).parent := nil;
end;
end; end;
end; end;