création dynamique de fenêtre

**bandit boy** · 28/03/2006, 17h12

Bonjour,
J'aimerai faire une création de fenêtre dynamique. Je m'explique: lorsque j'appuie sur un bouton, j'aimerai ouvrir une Form contenant des informations. Si j'appuie sur ce même bouton alors que la Form ouverte n'est pas fermée, j'aimerai en créé une identique à la première.

J'ai trouvée une fonction CreateForm, seulement les explications disent de ne pas appeler cette fonction dans une application.

L'instruction new ne reconnait pas le type TForm.

Est ce que quelqun sait comment faire?
Merci d'avance

**emmental** · 28/03/2006, 17h28

bonjour

pour ma part j'ai une Form modèle que je peux créer dynamiquement.
je l'ai appelé Formulaire
j'utilise new et delete pour créer et supprimer les forms (copies du modèle) dont j'ai besoin
je stocke l'adresse de chaque Form dans une TList pour pouvoir l'identifier et la manipuler par la suite (mes Forms sont identifiées par une variable unique)

Code :

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

1
2
3
4
TFformulaire* Formulairex = new TFformulaire(this);
Liste_de_Form->Add(Formulairex);
 
Formulairex= 	(TFformulaire*) Liste_de_Form->Items[nbr];

**bandit boy** · 28/03/2006, 17h43

Ok, c'est cool j'ai adapté ton code à mon application et ca ne génère pas d'erreur (super

) mais je dois surement créer des Form dont la propriété Visible est à false. Ce qui m'amène à la question suivante:

Comment fais tu pour les manipuler indépendemment les unes des autres ?

:

**bandit boy** · 28/03/2006, 17h53

Merci Emmental

Je ne sais toujours pas comment les manipuler séparément, mais après avoir mis la propriété visible de ma fenêtre copié à true, je les vois!!!
C'est exactement ce que je voulais.

Par contre, pourrait tu m'expliquer comment les manipuler

s'il te plait?

**emmental** · 28/03/2006, 18h04

j'ai oublié de préciser qu'il fallait mettre cette fiche modèle dans la catégorie"fiches disponibles", par oposition aux fiches créées automatiquement
sur bds2006 : Projet/options/Fiches...

quant à manipuler mes fiches individuellement, je ne sais pas si c'est la meilleure méthode, mais je les identifie par un nom particulier au moment de leur création et ce nom comporte un chiffre que j'incrémente à chaque création... il suffit d'extraire ce chiffre qu je retrouve dans ma variable "nbr"

quand je rappelle une fiche, j'utilise un pointeur

Code :

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

1
2
TFformulaire*  Formulaired;
Formulaired = (TFformulaire*) F1->Liste_de_Form->Items[F1->nbr];

voila, si quelqu'un a d'autres idées cela m'interesse

**bandit boy** · 28/03/2006, 18h26

J'ai réussi à y accéder de la manière suivante:

Code :

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

1
2
3
 
 
((TForm3*) Liste_de_Form->Items[fenetre])->Label13->Caption="Envoie de données, Trame n°"+IntToStr(fenetre);

J'ai remarqué que l'évènement généré sur la Form de base (OnClikButton) est le même sur la Form créé.

C'est nickel, encore un grand MERCI à toi !

**bandit boy** · 29/03/2006, 11h14

Excuse moi d'insister, mais j'ai des soucis sur la supression des Forms créées. J'ai essayé avec

Code :

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

1
2
 
    delete ((TForm3*) Liste_de_Form->Items[num_fenetre]);

mais cela me génère une erreur. J'ai aussi tenté avec "exit(0)", mais cela me ferme mon application. J'ai aussi essayé de simuler l'évènement OnClose de la fenêtre, mais le passage du paramètre "Action" à caFree ne passe pas, et cette action n'a aucun effet.

Pourrais tu m'expliquer comment tu fais, s'il te plais?

**Freeze** · 30/03/2006, 12h23

Salut,

et t'as essayé :

pour la fermeture :

Code :

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

1
2
 
((TForm3*) Liste_de_Form->Items[num_fenetre])->Close();

**emmental** · 30/03/2006, 14h35

bonjour

d'après ce que j'ai constaté, tu ne peux pas faire le delete dans la Form qui a été créée dynamiquement
là tu peux juste faire, par exemple:

Code :

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

Formulairex->Hide()

mais cela ne détruit pas la Form, il faut le faire ailleurs dans ton programme

**bandit boy** · 30/03/2006, 15h29

Tout d'abord, encore une fois merci Emmental et ,merci Freeze pour ta proposition.

J'ai essayé le Close() mais cela ne marche pas, j'aurais aimé que la fenêtre se ferme d'elle même et comme Emmental l'a dit, il n'y a que le Hide qui "simule" cette effet.

Mais finalement, la meilleure solution reste de la fermer manuellement à l'aide de la croix prévue à cette effet

.

Merci encore

**Patrick Seuret** · 30/03/2006, 17h54

Je sais que c'est déjà résolu, mais as-tu essayé de fermer ta fenêtre avec
Release() ?

**bandit boy** · 31/03/2006, 10h35

Je viens d'essayer et malheureusement sans succès, mais merci quand même pour ta proposition Patrick.

**Patrick Seuret** · 31/03/2006, 11h06

J'ai fait un test avec Close et cela semble fonctionner. Je ne comprends pas la source de ton problème. Voici mon code s'il peut t'aider:

Une fiche avec 3 boutons:
Button1->Caption="Ouvrir fiche n°1"
Button2->Caption="Ouvrir fiche n°2"
Button3->Caption="Fermer fiche et ses descendants"

TForm1.h

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
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
  TButton *Button1;
  TButton *Button2;
  TButton *Button3;
  void __fastcall Button1Click(TObject *Sender);
  void __fastcall Button2Click(TObject *Sender);
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
  void __fastcall Button3Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
  __fastcall TForm1(TComponent* Owner);
  TForm1 *form1;
  TForm1 *form2;
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

TForm1.cpp

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
55
56
57
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  form1=NULL;
  form2=NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  if (!form1) {
    form1=new TForm1(NULL);            // Pas de owner si la fenêtre se ferme toute seule
    if (!form1) return;                // Erreur!
    form1->Caption=Caption+":1";
  }
 
  form1->Show();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  if (!form2) {
    form2=new TForm1(NULL);            // Pas de owner si la fenêtre se ferme toute seule
    if (!form2) return;                // Erreur!
    form2->Caption=Caption+":1";
  }
 
  form2->Show();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if (form1) form1->Close();
  if (form2) form2->Close();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  // Close form
  Close();
}
//---------------------------------------------------------------------------

**bandit boy** · 31/03/2006, 12h11

C'est sympa, merci de m'avoir donné ton code source

J'ai essayé tout simplement le "Close();", et en effet je ferme ma fenêtre, mais quand j'insère le code juste avant pour le traitement de ma liste comportant les adresses des Forms, l'instruction Close génère alors une erreur. Mais ne t'inquiète pas, je contourne le problème à présent en imposant l'utilisateur de la fermer manuellement (ce qui m'arrange en fait).

Merci encore de partager votre expérience et pour vos bons conseils

**Desraux** · 28/04/2006, 18h58

Dans l'aide de delphi j'ai trouvé ce commentaire :

TObject.Free

Avertissement : Ne libérez jamais explicitement un composant dans l'un de ses propres gestionnaires d'événement ou dans un gestionnaire d'événement d'un composant qu'il possède ou contient. Par exemple, ne libérez pas un bouton, ou la fiche le possédant, dans son gestionnaire d'événement OnClick.

**bandit boy** · 30/04/2006, 18h57

Ok, je vais tester ca.
Merci, mais sinon, j'ai réussi à négocier pour ne pas avoir à la fermer par logiciel.

création dynamique de fenêtre

C++Builder

Discussions similaires

Partager

Partager