Discussion :

[Mickey.jet]

Bonjour,

Voila mon problème. J'ai une classe de type TForm qui lorsqu'elle est appelé dans un programme affiche une form (logique ). Sur cette form j'ai un bouton et je souhaite lorsque l'utilisateur clique sur ce bouton q'une autre form apparaisse.

Comment faire dans ma classe pour rajouter une form? Comment créer une classe avec deux form? On accéderai a la deuxieme form lors de l'appui su un bouton qui se trouverait sur la form1?

Merci d'avance.

[Hauwke]

Bonjour,
Plusieurs solutions s'offrent à vous. La première serait de créer une fiche (Form2) et en ajoutant l'unité de cette nouvelle form dans la clause "Uses" de votre unité de faire sur l'événement "Onclick" de votre bouton quelque chose du genre :

Code :

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

 Form2.show;

ou bien toujours dans l'évenement "Onclick" de votre bouton:

Code :

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

1
2
3
4
5
6
7
8
 
procedure Tform1.BoutonClick(sender:tObject);
var
Mafiche : Tform;
begin
Mafiche :=Tform.create(self);
Mafiche.show;
end;

Attention avec cette dernière façon d'avoir une ligne de code qui détruit la fiche nouvellement créée sinon gare aux fuites mémoires.
Cordialement,
Hauwke

[Mickey.jet]

La deuxieme solution est intéressante mais elle n'est pas compliqué?

Surtout que sur la nouvelle form il va y avoir deux boutonx et une listBox.

[Laurent Dardenne]

La deuxieme solution est intéressante mais elle n'est pas compliqué?

Non il s'agit de la gestion dynamique de composants. Voir la FAQ :
http://delphi.developpez.com/faq/?pa...ondyncomposant

Surtout que sur la nouvelle form il va y avoir deux boutonx et une listBox.

Peu importe son contenu en revanche les relations entre les 2 fiches (le partage de donnée, modal ou non, durée de vie,...) sont à étudier.

[Mickey.jet]

ok merci pour le liens il est tres intéressant.

Donc j'ai ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    var
      bouton1 : Tbutton;
      form1 : Tform;
    begin
      form1 := TForm.Create (self); //le propriétaire est la form
      form1.Parent := self;    //s'affiche sur la form
      form1.ShowModal;
      bouton1 := TButton.create(Self);  
      bouton1.Parent := form1;  //s'affiche sur Form1;
    end;

Mais ce code ne marche pas j'ai bien ma form mais pas le bouton dessus...
Pourquoi?

[Mickey.jet]

y a personne pour m'aider?

[Laurent Dardenne]

Mais ce code ne marche pas j'ai bien ma form mais pas le bouton dessus...
Pourquoi ?

La lecture de l'aide en ligne t'aurais renseigné.
Ici c'est la notion de propriétaire (Owner) qui est en cause, self c'est la fiche en cours et form1 la seconde fiche sur laquelle tu souhaites placer ton bouton.

La libération de ce bouton est du ressort de form1 (c'est souvent le cas)
Ici la libération de form1 libéreras automatiquement le bouton associé.