/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
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)
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




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste