Discussion :

[dacid]

Bonjour à tous,

Dans une appli MDI, je liste toutes les fenêtres créées et j'arrive à récuperer leur noms.

Code :

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

1
2
3
4
5
  For i := Screen.FormCount - 1 DownTo 0 do begin // Lister toutes les fenêtres actives
      li := lvEnCours.Items.Add;
      li.Caption := TfrmVm(Screen.Forms[i]).myOffre.lib;
      li.Data := Pointer(i);
  end;

Dans un 2ème temps, j'aimerais, lors d'un clic sur l'element, remettre la form en avant plan (bringToFront).
Or, le I n'est pas fiable, il change en fonction de l'ordre affiché... Il n'est lié à aucune fenêtre.
J'ai pensé à les retrouver à partir de leur noms (qui s'incrémente automatiquement), pouvoir me "rebrancher" sur la Form concernée.
Seulement, je n'y arrive pas.

En quelques sortes, il me faudrait un FindComponent, mais pour les forms.

L'appli MDI par défaut reproduit bien ce comportement dans le menu "Fenêtre", mais le code n'est pas accessible.

Pouvez vous m'aider ?

Merci d'avance.

[Tardiff Jean-François]

Bonjour,

normalement quelque chose de ce genre devrai fonctionner.

Code :

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

1
2
3
4
5
6
7
 
forI :=MDIChildCount-1 downto0 do begin
  if MDIChildren[I].Caption = NomDeLaForm then
    MDIChildren[I].BringToFront;
end;
 
end;

[sjrd]

Suffit d'utiliser FindComponent sur l'objet Application, qui est le propriétaire de toutes tes fiches, normalement.

[guillemouze]

et si tu stock directement ta form?

Code :

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

1
2
3
4
5
6
  For i := Screen.FormCount - 1 DownTo 0 do begin // Lister toutes les fenêtres actives
      li := lvEnCours.Items.Add;
      li.Caption := TfrmVm(Screen.Forms[i]).myOffre.lib;
      li.Data := Screen.Forms[i];
  end;

[dacid]

Bonjour Jean-François,
Merci pour le MDIChildCount, je ne connaissait pas, je vais l'utiliser.
Et C'est en gros ce que j'ai fait depuis mon post.
J'ai gardé le nom des forms dans un tableau dynamique de correspondance.

Bonjour sjrd,
Cette solution aurait été idéale, j'y ai pensé mais la valeur retournée et de type tComponent, et je n'arrive pas à le caster en type tForm, il me fait une erreur mémoire.

Bonjour guillemouze,
Oui, j'y ai bien pensé, mais la propriété Data ne peut prendre qu'un objet de type pointer... Donc du numérique, nan ?

Voici ce que j'ai fait lors de la première lecture:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  SetLength(tabForms, j); // Tableau dynamique de correspondance pour stoker le nom des forms
  For i := MDIChildCount-1 DownTo 0 do begin // Lister toutes les fenêtres actives
    if Pos('frmVm', MDIChildren[i].Name)=1 then begin // Si c'est une fenêtre de VM
      li := lvEnCours.Items.Add;
      li.Caption := TfrmVm(MDIChildren[i]).myOffre.lib;
      SetLength(tabForms, j+1);
      tabForms[j] := MDIChildren[i].Name; // Stoquer le nom de la form
      li.Data := Pointer(j); // Garder l'index dans le tableau
      Inc(j);
     end;
  end;

Lors du clic sur l'élement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TfrmMain.lvEnCoursSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var i: Integer;
begin
  inherited;
  if Selected then begin
    For i := MDIChildCount-1 DownTo 0 do begin // Lister toutes les fenêtres actives
      if (tabForms[Integer(lvEnCours.Selected.Data)]=MDIChildren[i].Name) then begin
        TfrmVm(MDIChildren[i]).BringToFront;
        Break;
       end;
    end;
  end;
end;

Pas mieux ?

[guillemouze]

Bonjour guillemouze,
Oui, j'y ai bien pensé, mais la propriété Data ne peut prendre qu'un objet de type pointer... Donc du numérique, nan ?

oui mais nan.

Pointer, TObject (et ses descendants), et integer, ne sont qu'un seul et meme type (en gros).

• un pointer est codé sur 4 octets, et represente une adresse memoire (un entier quoi)
• un tobject est codé sur 4 octets, et représente un object (qui n'est rien d'autre qu'un pointeur)
• un integer est codé sur 4 octets, et represente ... un chiffre (attention de ne pas caster un integer en pointer, tu "risque" l'EAccessViolation).

tu peux donc faire sans aucun probleme

Code :

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

1
2
3
4
li.Data := Pointer(MDIChildren[i]);
...
TfrmVm(li.Data).BringToFront; //Attention au cas ou li.Data = nil

PS: regarde TObjectList.Sort : la SortFunction prend en parametre des pointers qui sont en fait des TObect

[guillemouze]

pour reprendre ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  //le tableau ne sert plus
  For i := MDIChildCount-1 DownTo 0 do begin // Lister toutes les fenêtres actives
    if MDIChildren[i] is TFrmVm then  //verif que le child herite de TFrmVm
    begin
      li := lvEnCours.Items.Add;
      li.Caption := TfrmVm(MDIChildren[i]).myOffre.lib;
      li.Data := Pointer(MDIChildren[i]); // stock directement le pointeur vers la form
     end; //if
  end; //for

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TfrmMain.lvEnCoursSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var i: Integer;
begin
  inherited;
  if Selected then 
  begin
    if Assigned(Item) and Assigned(Item.Data) then
    begin
      TfrmVm(Item.Data).BringToFront;
    end;
  end;
end;

ce qui me parrait nettement plus simple

[dacid]

Effectivement,

Merci à tous pour votre participation.