CREATION DYNAMIQUE DE FICHE

cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
- 24 janv. 2003 à 20:17
cheragasalhi
Messages postés
31
Date d'inscription
lundi 10 décembre 2007
Statut
Membre
Dernière intervention
17 juin 2009
- 23 févr. 2008 à 19:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12318-creation-dynamique-de-fiche

cheragasalhi
Messages postés
31
Date d'inscription
lundi 10 décembre 2007
Statut
Membre
Dernière intervention
17 juin 2009

23 févr. 2008 à 19:07
je suis pas d'accord avec vous?
cs_Kaley
Messages postés
4
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2005

26 janv. 2005 à 10:56
le fichier ne peut pas etre decompresse?! erreur dans le fichier
samounet
Messages postés
99
Date d'inscription
lundi 10 septembre 2001
Statut
Membre
Dernière intervention
19 février 2003

24 janv. 2003 à 22:22
en fait je pensais avoir vire la declaration de Form2 dans la section interface.... (ce que je fais habituellement)
la declaration en variable membre n'etait effectivement pas necessaire, j'aurais tres bien pu la declarer en variable locale a ma fonction... il me semble que la question posee dans le forum etait justement de disposer de plusieurs instances, mais n'ayant pas relu la question, je peux me gourer :o)
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
24 janv. 2003 à 20:17
Pourquoi créer un membre privé FForm2 : TForm2 dans la classe TForm1 ?
Comme Unit1 declare Unit2 dans sa clause Uses, tu peux directement utiliser la variable d'instance Form2 déclarée dans la partie Interface de Unit2.
Donc dans ta méthode Button1Click, tu peux directement écrire :
Form2 := TForm2.Create(Application);
Form2.Show;
Et, si tu fais appel à des affichages en mode non modal, inutile de créer plusieurs instances de la même fiche :
If not Assigned(Form2) then
Form2 := TForm2.Create(Application);
Form2.Show;
Automatiquement, si la fiche est déjà présente à l'écran, elle deviendra active. Sinon, elle sera créée et activée.