Discussion :

[iam]

bonjour
j'ai une application et lorsque j'appelle mes formes je le fais dynamiquement c-à-d : form.create(self) et je la libère de la memoire en la fermant par : forme.release mais le pb je peux ouvrir deux instence de la meme forme coment eviter l'utlisateur d'ouvrir la meme forme de fois en l'affichant un message que cette fenetre est dèjà ouverte s'il tente de l'ouvrir une autre instence de cette forme?
merci

[Bejaia-In]

Voici le code qui permet d'instancier une fiche une seule fois et de l'afficher les autres fois, a mette dans une procedure indépendante de la fiche elle même mais de préference dans la même unité.

frmFiche : Nom de la fiche.

Code :

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

1
2
3
4
5
6
7
case Assigned(frmFiche) of
  True : case (frmFiche.ComponentState=[csDestroying]) of
            False : frmFiche.Show;
            True  : frmFiche:=TFiche.Create(Self)
           end;
  False: frmFiche:=TFiche.Create(Self)
 end;

[Pascal Jankowski]

De façon plus générale, si l'on veut faire propre et élégant, il faut penser à implémenter le modèle singleton.
Pour cela il faut mettre en pratique les méthodes de classes.

Un petit lien sympathique traitant du sujet sur le site de Borland.