Discussion :

[Mickey.jet]

Bonjour a tous...

Voila je voudrais savoir comment on peut tester si une form existe?

Merci

[Rayek]

Normalement comme çà :

Code :

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

1
2
3
 
if not Assigned(LaForm) then
  Laform := TForm.Create(Self);

[Yurck]

Et si tu n'a pas référencé ta form tu peux boucler sur Screen.Forms

Code :

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

1
2
3
4
5
6
7
 
  For i:= 0 to Screen.FormCount -1 do
    if  (Screen.Forms[i] Is TMaForm) then
    begin
      // Mon formulaire existe et je l'affiche en premier plan
      Screen.Forms[i].show;
   end;

a+