Comment faire une classe avec deux form?

Version imprimable

02/07/2006, 12h41
Mickey.jet

Comment faire une classe avec deux form?

Bonjour,

Voila mon problème. J'ai une classe de type TForm qui lorsqu'elle est appelé dans un programme affiche une form (logique :D ). 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.
02/07/2006, 13h40
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:

Form2.show;

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

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
02/07/2006, 14h19
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.
02/07/2006, 14h36
Laurent Dardenne

Citation:

Envoyé par Mickey.jet

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

Citation:

Envoyé par Mickey.jet

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.

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

Donc j'ai ce code:

Code:

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?
;)

02/07/2006, 18h01
Mickey.jet

y a personne pour m'aider? :cry:
02/07/2006, 18h56
DMO

:) :f1: sur ShowModal...

Bonjour,
C'est période de solde sur DVP, profitez-en... :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    Form2   :Tform;
    Bouton2 : TButton;
    {On met les variables à cet endroit de façon a pouvoir les détruires de n'importe
    quel endroit de ma form1}
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2:=Tform.Create(self);      // Création de la form2.
  Bouton2:= Tbutton.Create(Form2); // Création du bouton
  with bouton2 do                  // Réglage des options du bouton
  begin
    parent := Form2;
    left := 80;
    top := 88;
    height := 45;
    width := 170;
    caption := 'Et voilà votre gros bouton';
    end;
    Form2.ShowModal;              // Affichage modal de la form2
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
Form2.Destroy;                    {// Destruction de la form2 qui est responsable de la destruction
                                      du bouton2 (on a mit parent := Form2).}
end;
 
end.

Mais que ceci ne vous empêche pas de faire quelques recherches à l'avenir...
Cordialement,
Hauwke

03/07/2006, 15h46
Laurent Dardenne

Citation:

Envoyé par Mickey.jet

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é.

Citation:
Envoyé par Mickey.jet
Code:

1 2 3 4 5 6 7 8 9 10 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;
Citation:

Envoyé par Laurent Dardenne

La lecture de l'aide en ligne t'aurais renseigné.

Ah! là je confirme !

Citation:

Envoyé par Laurent Dardenne

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.

Par contre je ne suis pas d'accord là, car ça n'est pas son problème principal. Certes Mickey crée le bouton dans une fiche et l'affiche dans une autre..., mais je pense que :

Citation:

Envoyé par Mickey.jet

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

ce qui lui pose problème en l'occurence, c'est le ShowModal, d'où ma suggestion première.
Quand il aura mis Show à la place, il aura "visuellement" réussi à faire ce qu'il souhaite.

Ceci dit Mickey, cherches à comprendre quand meme ce dont te parle Laurent, c'est fondamental.

Bon dev'

04/07/2006, 18h23
Bloon

Il serait plus propre d'avoir une form qui manipule des frames. Mon tuto sur la programmation d'une "Fenêtre assistant" illustre ça :

http://bloon.developpez.com/articles/delphi/assistant/

Bloon