CREATION DYNAMIQUE DE FICHE
cs_Delphiprog
cheragasalhi
- Messages postés
- 4297
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Membre
- Dernière intervention
- 9 janvier 2013
cheragasalhi
- Messages postés
- 31
- Date d'inscription
- lundi 10 décembre 2007
- Statut
- Membre
- Dernière intervention
- 17 juin 2009
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
https://codes-sources.commentcamarche.net/source/12318-creation-dynamique-de-fiche
23 févr. 2008 à 19:07
26 janv. 2005 à 10:56
24 janv. 2003 à 22:22
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)
- Messages postés
-
4297
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Membre
- Dernière intervention
- 9 janvier 2013
3124 janv. 2003 à 20:17
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.