Discussion :

[Aooka]

Bonjour,

Je vous poste un exemple de hiérarchisation d'une application delphi FMX.
Les cadres rouges sont des formes.
Les étoiles vertes sont des boutons qui sont censés lorsque l'on clique dessus fermé toutes les pages qui se sont empilé jusqu'à la forme principale (en gros, c'est un bouton "Home"). Si vous voulez.
Les flèches noire montre qu'elle form show quelle form.



Voilà il faudrait parcourir tout les parents un truc du genre jusqu'au parent principal mais en code je ne vois pas comment faire.


Je vous remercie d'avance,
Bonne journée à tous,
Bien Cdt,

[Aooka]

Un début de code, qui, ferme toute les formes y compris page principal et page courante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormCreaDA.BTN_GoMainClick(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
  Begin
    if (Screen.Forms[I] <> FormCreaDA) And (Screen.Forms[I] <> FormMain) then
    Begin
      Screen.Forms[I].Close;
    End;
  End;
 // Self.Close;
end;

[Paul TOTH]

il y a-t-il un intérêt à cet empilement ? sinon il suffit de remplacer la fiche N par la fiche N+1 et ne garder qu'un seul niveau de profondeur.

[Aooka]

Bonjour,

Oui il y a un intérêt car sur certaine fiches l'on souhaitera revenir simplement sur la page parente/précédente via un bouton autre que le bouton home qui, lui, fermera toute les pages/fiches sauf la page principal (ici FormMain).

Edit:
J'ai l'impression que comme ça sa marche, je vais tester sur la plupart de mes pages, et je marque résolu si c'est bon.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  I : Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
  Begin
    if (Screen.Forms[I].Name <> 'FormCreaDA') And (Screen.Forms[I].Name <> 'FormMain') then
    Begin
      Screen.Forms[I].Close;
    End;
  End;
  Self.Close;
end;

[Andnotor]

A moins d'avoir défini l'événement OnClose et de lui passer caFree, tes fiches sont juste masquées mais pas détruites.
La fiche principale sera toujours Screen.Forms[0] (la boucle devrait commencer à 1 pour éviter le test) mais si tu veux t'en assurer, Screen.Forms[I] <> Application.MainForm.