Discussion :

[soror]

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

[Tardiff Jean-François]

Bonjour

Code :

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

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 :

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

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)

[Ludo_360]

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

[Graffito]

bonjour,

testIfFormExist(Form1).Show

Si il y a 2 formes :

Code :

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

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.

[soror]

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