Discussion :

[sondo]

Bonjour,

J'ai une form MDI avec des menus. Dans les menus il ya QUITTER. Si on clique sur QUITTER l'application se ferme. Je veux faire de tel sorte que si on clique sur le menu QUITTER, il ferme d'abord tous les forms ouvertes.
En résumer : comment faire pour connaitre la/les form qui est/sont ouvertes et ramener le/leurs nom respectif(s).
Merci d'avance.

[Yurck]

Bonjour,

j'essaierai un truc dans ce genre.

Code :

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

1
2
3
4
5
6
7
 
    I := 0;
    while (I < Screen.FormCount) do
    begin
       if not Screen.Forms[i].closequery then
         I := I + 1;
    end;

Tu noteras qu'il n'est pas utile d'incrémenter I puisque c'est Screen.FormCount qui se décrémente (à chaque fermeture qui marche).

Ceci dit ta demande me semble déplacée car lorsqu'une application MDI se referme elle ferme déjà auparavant l'ensemble des fenêtres.


a+

[sondo]

Salut,

Ceci dit ta demande me semble déplacée car lorsqu'une application MDI se referme elle ferme déjà auparavant l'ensemble des fenêtres.

Je pense que tu as raison, il n' y' a pas trop d'intérêt à le faire.
Merci.

[anapurna]

dans le cas ou tu ne veut pas fermer ton appli mes toute les form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TfMain.Toutfermer1Click(Sender: TObject);
var
  i : integer;
  count : integer;
begin
  count := MDIChildCount -1;
  if   MDIChildCount > 0 Then
    for i := count downTo 0 Do
    begin
      TFORM(MDIChildren[i]).close;
      Application.ProcessMessages;
    end;
end;

@+ Phil

[sondo]

Salut anapurna,

Ton code est excellent. J'ai fais mon code de tel sorte que il ferme d'abord tous les form ouvert avec ton code. Si aucune form n'est ouvert l'application se ferme. Encore merci.