Åbne form der var åbne ved afslutning

Når du lukker main-formen kan du anvende screen-objektet:


for i:= screen.FormCount-1 downto 0 do
    SaveInfo(i)

Da alle mine forms ikke er genereret fra start kan jeg ikke lige finde en metode til at loope dem, så jeg har betemt mig for at sige til brugeren at 'det er ikke muligt med den for hånden værende teknik'

@hugopedersen
Jeg er bare en novice i faget, så du må have mig undskyldt hvis dette er noget vrøvl!
Kan du ikke når du lukker programmet ned, checke for alle dine kendte forms for om de er åbne eller ikke ( er pointeren NIL?)

Den ønskede identifikaion af den enkelte form kan gemmes i f. eks. en simpel tektsfil, som indlæses ved opstart af programmet og  heréfter kan de ønskede forms åbnes!

Den er godt nok ikke så sofistikeret, men den virker!
:-)

mvh ossys

var
    i : integer;
begin
    for i:=0 to Application.ComponentCount-1 do
      if Application.Components[i] is TForm then
    begin
        if (Application.Components[i] as TForm).Visible then
          Showmessage(Application.Components[i].Name); //gem oplysninger
    end;
end;

Nå, den løsning som a_nor har skrevet virker jo også.

Der er kun 1 enkelt krølle tilbage så - jeg skal jo kun gemme for mdiChild vinduerne.

@hugopedersen
Jeg har godt nok ikke selv benyttet min løsning på mdiForms , men du skal vel have en åben mainform (hvor pointeren IKKE kan være nil?) for at have mdiChilds åbne? Disse har vel også en pointer, der er NIL når du du lukker dem?

mvh
ossys

Det er nok rigtig nok. Men hvis jeg looper alle forms får jeg også gemt oplysninger for mainform og det er jeg ikke interesseret i.

Jeg har gjort det at jeg har lavet en rutine der køres når de forms jeg ønsker at kunne genåbne creates (det gør jeg jo først når de skal bruges - ingen autocreate) og så gemmer at de er åbne.

Ved start af programmet løber jeg så alle de ønskede forme igennem og creater dem der er gemt oplysninger om.
Ikke så dynamisk som jeg kunne ønske, men det virker.

kroning og a_nor smid lige et svar også. Så får i del i points for input.

Du behøver da ikke at gemme oplysninger om hovedformen. Den kender programmet jo selv!

mvh ossys

Jeg har ikke bidraget med noget her.

Lidt for indsatsen - selv om resultatet blev helt anderledes :-)