Discussion :

[UnSofteuxAmateur]

Bonjour a tout le monde

Je suis nouveau sur le forum et en programmation aussi alors ne me jeté pas de pierre car je bidouille encore pas mal .
voila j'ai un projet sur lequel j'ai plusieurs form. et certaine form ne doive pas etre ouverte si certaine le son...En clair je voudrais savoir si une peus (et si oui comment) on peut savoir qu'une form et ouverte ou créé??

Merci a vous

[TicTacToe]

Bienvenue sur DVP

Pour savoir si une forme est visible, il y a la propriété

Code :

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

TForm.Visible

Pour savoir si une forme est créée, tout dépend comment et si tu fais des allocations dynamiques
en principe un

Code :

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

if Assigned( Maform )

devrait suffire. Sauf dans le cas ou tu désalloues la form sans remettre la référence 'Maform' à Nil.
Auquel cas, pour vraiment tester si la forme est créée, une utilisation de propriété peut faire l'affaire:

Code :

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

1
2
3
4
5
6
7
8
var BCreee: Boolean;
begin
  try
  MaForm.Tag := MaForm.Tag; // ou autre chose
  BCreee := True; // la lecture de la propriété a fonctionnée, donc la form existe vraiment
  except
  BCreee := False; // levée d'une erreur, donc la form n'existe pas
  end;

La 1ere solution est quand même plus propre, mais il faut gérer correctement les désallocations