|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | MDIChild Fra : Michael Vilhelmsen |
Dato : 01-07-02 11:45 |
|
Hvis man har en form, som er af MDIForm typen, kan man gøre følgende under
form close:
for I := MDIChildCount-1 downto 0 do
begin
MDIChildren[I].Close;
end;
Men hvad nu, hvis det er en almindelig form, hvor hver enkelt form bare
vises ?
--
Best Regards / Med venlig hilsen
___________
Michael Vilhelmsen
Microcom ApS, Denmark
| |
Harald (03-07-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Harald |
Dato : 03-07-02 19:07 |
|
"Michael Vilhelmsen" <Michael.Vilhelmsen@Microcom.NoSpam.Com> skrev i en
meddelelse news:Xns923E81C367D3DMichaelVilhelmsenNoS@212.54.64.134...
> Hvis man har en form, som er af MDIForm typen, kan man gøre følgende under
> form close:
>
> for I := MDIChildCount-1 downto 0 do
> begin
> MDIChildren[I].Close;
> end;
>
>
> Men hvad nu, hvis det er en almindelig form, hvor hver enkelt form bare
> vises ?
Der her ser ud til at virke, men der findes nok en smartere metode.
var
i : integer;
begin
for i:=0 to application.ComponentCount-1 do
if (application.Components[i] is TForm) and
(TForm(application.Components[i])<>Application.MainForm) then
TForm(application.Components[i]).close;
end;
Mvh
HK
| |
|
|