mirror of
https://github.com/CloudDelphi/Router4Delphi.git
synced 2025-12-19 08:43:43 +01:00
Compare commits
1 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
9787e23c32 |
@ -30,7 +30,10 @@ begin
|
||||
for lIndex := Self.ControlCount - 1 downto 0 do
|
||||
begin
|
||||
if (Self.Controls[lIndex] is TForm) then
|
||||
begin
|
||||
(Self.Controls[lIndex] as TForm).Close;
|
||||
(Self.Controls[lIndex] as TForm).parent := nil;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user