Function de controle pour des forms MDI

Bonjour à Tous;

j'ai un petit probleme; je l'explique pour ceux qui veulent m'aider et merci d'avence:

donc j'ai plusieurs forms MDI et sur la form mère j'ai un MainMenu quand je click sur mainmenu1 j'ai la form Fille1 et si je click une 2eme fois il me donne une seule form fille1 car je l'ai controler par le bout du code suivant:

[code] if Form1=nil then Form1:=TForm1.create(self);

et je fait ça pour mes differentes Forms

MAQUESTION : comment je peut factoriser la ligne de code que j'ai ecrit dans une finction generale que je l'appele quand je veut creer les differentes forms?

Merci

Bonjour

Code:

---

1 2 3 4 5 6 7 8

function Form1.testIfFormExist(var form: Tform): TForm; begin if form = nil then Form := Tform.create(Self); Result := form; end;

---

Apelle

Code:

---

1 2	testIfFormExist(Form1).Show;

---

Ce qui est important c'est le var devant Form. le Var indique que le pointeur de form peut être mis a jour.
J'ai utiliser une fonction par paresse. cel me permet directememnt de fair mon Show.
L'inconvenient est que tout les fenêtre créer doivent être de mêm type (TForm dans l'exemple)

combien de form as tu? Tu ne peux pas juste réécrire cette ligne pour les différents appels de tes différentes form?

ludo

bonjour,

Citation:

---

testIfFormExist(Form1).Show

---

Si il y a 2 formes :

Code:

---

1 2	if Form1=nil then Form1:=TForm1.create(self); if Form2=nil then Form2:=TForm2.create(self);

---

il faudra 2 fonctions testIfForm1Exist et testIfForm2Exist que l'on pourrait d'ailleurs intégrer dans le code de chaque forme.

Je vous remercie bcp c'est bien claire Jean François