Discussion :

[Zhitoune]

Voila je voulais savoir s'il était possible de créer une seconde fiche à partir de la fiche principale. Je clarifie : mon programme tient sur une fiche et je voudrais rajouter un bouton qui ouvre une fiche lorsqu'on clique dessus.

alors j'ai essayé :

Code :

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

1
2
3
4
procedure Tform1.ELclick
begin
application.createform(Tform2)
end;

mais Tform2 n'est pas déclaré dans Tform1 et je n'ai pas réussi à le faire.
et si je rajoute une autre fiche au programme je n'arrive pas à la cacher ou à la montrer depuis la fiche principale vu qu'elle n'est pas déclaré dans celle-ci.
merci d'avance.

[ero-sennin]

Salut,

Tu as une fiche nommé Form1. Tu souhaites appelé une fiche Form2 depuis Form1.

Pour avoir une nouvelle Form : Fichier -> Nouveau -> Fiche.
Ensuite, pour avoir accès à Form2 depuis Form1, il te faut inclure l'unité de Form2 dans les uses.

Pour ce faire, tu fais ceci (depuis Form1) : Fichier -> Utilisé l'unité et tu prends Form2.

Maintenant que Form1 connait l'existence de Form2, il suffit de faire un Form2.Show depuis Form1.

C'est ce que tu voulais, ou je suis un peu à coté ...

[Zhitoune]

cela réponds effectivement à ma question
donc il n'y a pas moyen de créer une fiche en cliquant sur un bouton??

[Mihalis]

si bien sur
http://www.developpez.net/forums/sho...mique+variable
vas voir la adpate le pour les forms
le principe est semblable

[ero-sennin]

Si, on peut la créer!

Pour ce faire, il faut que tu ailles dans projet, option et mettre la Form2 en Fiche disponible et non en fiche créée automatiquement.

Ensuite tu fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.CreerFormClick(Sender: TObject);
begin
//Création
Form2:=TForm2.Create(Self);
// On Affiche
Form2.ShowModal;
// Pour détruire
Form2.Free;
Form2:=nil;
end;

Il ne faut pas oublié d'inclure l'unité de Form2 comme tout à l'heure

Voilà

[Mihalis]

il peut la créer dynamiquement en déclarant un tableau de form s'il doit en faire plusieurs mais je vois pas trop l'utilité
en tout cas tu devras créer tous tes composants dynamiquement par la suite aussi après avoir créé ta form

[Cl@udius]

Salut

@Ero-Sennin

Pour info, on libère une fiche en appelant Release et non Free.
Ceci a déjà été débattu plusieurs fois sur ce forum.

Code :

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

1
2
3
 
  Form2.Release;
  Form2 := nil;

@+ Claudius

[ero-sennin]

Salut

@Ero-Sennin

Pour info, on libère une fiche en appelant Release et non Free.
Ceci a déjà été débattu plusieurs fois sur ce forum.

Code :

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

1
2
3
 
  Form2.Release;
  Form2 := nil;

@+ Claudius

Ah! J'ai du passer à coter de ce Post! Je modifierai alors tous mes programmes en conséquences

Merci pour cette correction

[Clorish]

Creer dynamiquement une fiche esst possible, on viens de le voire.
Par contre, sauf cas particulier, il est tout de meme preferable de creer la fiche lors du lancement de l'application et de gerer son affichage via Show et Close (ou hide).

[Zhitoune]

OK