mirror of
https://github.com/CloudDelphi/Router4Delphi.git
synced 2025-12-19 16:53:43 +01:00
Compare commits
1 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
9787e23c32 |
@ -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;
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user