Compare commits

...

1 Commits

Author SHA1 Message Date
juliocandrade@gmail.com
9787e23c32 Set Form.parent to nil on remove object 2022-12-02 16:56:36 -03:00

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;