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?

[DMO]

sur ShowModal...

[Hauwke]

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

Code :

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

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

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

[DMO]

Code :

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

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;

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

Ah! là je confirme !

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 :

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'

[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