Discussion :

[Colloc]

Bonjour,

Question archi classique mais ttes les réponses trouvées sur le forum ou sur le net ne fonctionne pas !

Je cherche à inclure dans une zone de mon appli (un groupbox ou un panel) une fiche ou un cadre (TFrame) d'une DLL.

Cette fiche (ou ce cadre) contenant des boutons, affichages, contrôles divers.

Comment faire ? Dois-je utiliser une fiche ou un cadre ?

Merci de votre réponse par avance !

Colloc

[totoche76]

Hello,

Perso dans la dll je crée une fiche (BorderStyle = none, BorderIcons = vide), et je lui mets comme ParentWindow le handle du parent voulu dans l'appli (handle passé à la fonction de la dll qui crée la fenêtre). Le parent peut être un TPanel, un TForm, un TTabSheet ...

Par contre, dans cette fonction de création, je sauvegarde le Application->Handle de la DLL, et je le remplace par celui de l'appli appelante.
La fonction de destruction de la fenêtre repositionne le Application->Handle de la DLL à son ancienne valeur.

Et ça marche très bien (avec Builder 2007) !

[Colloc]

Je n'y arrive pas !!

Voilà mon code de création dans la DLL :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
extern "C" __stdcall __declspec(dllexport,dllimport) int Show(TWinControl* parentForm, TApplication* Appli)
 
{     TForm1 *MyForm=new TForm1(parentForm);
      if (MyForm)
                {
                if  (parentForm) MyForm->Parent=parentForm;
                Application->Handle=Appli->Handle;
 
                MyForm->Show();
                }
 
 
}

Et mon appel en dynamique dans l'appli principal :

Code :

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

1
2
3
4
5
6
7
8
9
10
 HINSTANCE hinstDLL;
    MYDLLFUNC ImpFuncDLL;
  int iRet;
        if ((hinstDLL=LoadLibrary("DLLFonction.dll"))) {
                   ImpFuncDLL = (MYDLLFUNC)GetProcAddress(hinstDLL, "Show");
 
                    if (ImpFuncDLL) {
                                          iRet = ImpFuncDLL(FichePrincipale,Application);
                                           }
                   }

Bref, rien de bien compliqué !

[totoche76]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
extern "C" __stdcall __declspec(dllexport,dllimport) int Show(TWinControl* parentForm, TApplication* Appli)
 
{     TForm1 *MyForm=new TForm1(parentForm);
      MyForm->Left = 0;
      MyForm->Top = 0;
      if (MyForm)
                {
                if  (parentForm) MyForm->ParentWindow=parentForm->Handle;
                Application->Handle=Appli->Handle;
 
                MyForm->Show();
                }
}

Mais je ferais ceci:

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
extern "C" __stdcall __declspec(dllexport,dllimport) int Show(HWND parentForm, HWND Appli, HWND* oldAppli, TForm** fenetre)
 
{
     *oldAppli = Application->Handle;
     Application->Handle=Appli;
 
     TForm1 *MyForm=new TForm1(NULL);
     *fenetre = MyForm;
 
     MyForm->Left = 0;
     MyForm->Top = 0;
     if  (parentForm) MyForm->ParentWindow=parentForm;
 
     MyForm->Show();
}
 
extern "C" __stdcall __declspec(dllexport,dllimport) int Fermer(HWND oldAppli, TForm* fenetre)
 
{     
        Application->Handle = oldAppli;
        delete fenetre;
}

Puis

Code :

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

1
2
3
4
5
TForm* fenetre;
HWND appli;
iRet = ImpFuncDLL_Show(FichePrincipale,Application, &fenetre, &appli);
...
ImpFuncDLL_Fermer(fenetre, appli);

Ok, c'est crado, mais c'est pour l'idée...

[Colloc]

J'ai testé ton code, fais qq correction (qq petites erreurs a priori de ta part)...

Mais il n'en veut pas !

Je tourne en rond depuis 2 jours là dessus ! Alors que cela parait si simple !

[totoche76]

Quand tu mets un point d'arrêt sur MyForm->Show(), est-ce que derrière les propriétés de MyForm te paraissent correctes ? (pas facile d'être crétif, là...)

Pour info, sur mon form, j'ai Position à poDesigned.

Dans le constructeur de ma fenêtre, j'ai ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  if (mHandleParent != NULL)        // mHandlePent : ->Handle d'un TWinControl 
  {
    BorderStyle = bsNone;
    BorderIcons = TBorderIcons();
    ParentWindow = mHandleParent;
 
    // On prend toute la place dispo dans le parent
    TRect rect;
    ::GetClientRect(mHandleParent, &rect);
    Width = rect.Width();
    Height = rect.Height();
  }

La 1ère fonction (celle juste avec ParentWindow) m'a permis d'afficher ma fenêtre dans un TPanel contenu dans un TTabSheet....

[Colloc]

De retour après un mois à faire d'autres choses ...

Je reviens vers vous pour avoir la solution, je tourne en rond.

Je n'arrive toujours pas à afficher ma form de la DLL dans la form de l'appli principale. Je vois bien qu'il se passe qq chose, mais je ne la vois pas !

Help please !!!

[totoche76]

Hello,

... Je vois bien qu'il se passe qq chose ... !

Ben c'est déjà pas mal
A part regarder en débugage les propriétés de la fenêtre créée... ou essayer de voir avec Spy++...

[Colloc]

Hello,

Ben c'est déjà pas mal
A part regarder en débugage les propriétés de la fenêtre créée... ou essayer de voir avec Spy++...

Sans abuser, peux-tu remettre le code que tu as fait pour le mettre dans le TPanel ?

[totoche76]

Sans abuser, peux-tu remettre le code que tu as fait pour le mettre dans le TPanel ?

Si FichePrincipale contient un TPanel nommé Panel1, ça donne quelque chose comme:

Code :

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

1
2
3
4
5
TForm* fenetre;
HWND appli;
iRet = ImpFuncDLL_Show(FichePrincipale->Panel1->Handle, Application->Handle, &fenetre, &appli);
...
ImpFuncDLL_Fermer(fenetre, appli);

[Patrick Seuret]

J'ai aussi eu des trucs bizarres. J'ai essayé d'afficher une fenêtre C++ dans une fenêtre Access et tout fonctionnait très bien en utilisant une méthode similaire. Mais par contre toutes les frames de mes fenêtres C++ disparaissait (alors qu'elles s'affichent très bien dans un projet VCL).

J'ai pas mal cherché mais n'ai rien trouvé. C'est comme si les TFrame n'étaient simplement plus affichés lorsque le parent est en dehors de la DLL.

Pour précision: j'avais fait des tests avec une fenêtre très simple (en dehors d'Access) et effectivement la frame n'apparaissait plus dès que le parent (ou peut-être l'application) est en dehors de la DLL.

[Colloc]

Bon, j'arrive désormais à afficher une fenêtre dans un panel :

Le code :

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
//---------------------------------------------------------------------------
extern "C" int __stdcall __declspec(dllexport)  Show(TApplication* Appli,TForm** Fiche)
{
 
Application=Appli;
*Fiche=new TForm1(NULL);
Application->Handle=Appli->Handle;
return 1;
}
 
extern "C" int __stdcall __declspec(dllexport)  Close(TForm** Fiche)
{
(*Fiche)->Close();
delete(*Fiche);
return 1;
}

Et le code dans mon appli :

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
if (hinstDLL=LoadLibrary("DLLFonction.dll"))
        {
        AccesFiche = (AccesFicheDLL)GetProcAddress(hinstDLL, "Show");
        FermetureFiche = (FermetureFicheDLL)GetProcAddress(hinstDLL, "Close");
 
        if (AccesFiche)
                        {
                        AccesFiche(Application, &FicheDLL);
                        FicheDLL->Parent=PanelDLL;
                        FicheDLL->Show();
                        FicheDLL->Left=0;
                        FicheDLL->Top=0;
                        FicheDLL->FormStyle=fsStayOnTop;
                        FicheDLL->Align=alClient;
                        }     
 
 
        }

Comme on le voit, je suis obligé de mettre la fenêtre à StayOnTop, c'est la seule méthode pour me permettre de la voir dans ma fiche (mon panel). Mystère....



et

Code :

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

1
2
3
4
if (FermetureFiche)
                        {
                        FermetureFiche(&FicheDLL);
                        }

Cependant, désormais, je n'arrive pas à libérer la librairie, ça me plante complètement tout, et si je ne le fais pas ça me plante aussi !

Des idées ?

[Colloc]

Bon, j'ai trouvé, j'ai bien sauvegardé l'appli et son handle puis remis lors de la femeture, ça fonctionne....

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
//---------------------------------------------------------------------------
extern "C" int __stdcall __declspec(dllexport)  Show(TApplication* Appli,TForm** Fiche, TApplication** OldAppli)
{
*OldAppli=Application;
Application=Appli;
*Fiche=new TForm1(NULL);
Application->Handle=Appli->Handle;
 
 
//return MyForm;
}
 
extern "C" int __stdcall __declspec(dllexport)  Close(TForm** Fiche,TApplication* OldAppli)
{
(*Fiche)->Close();
delete(*Fiche);
Application=OldAppli;
Application->Handle=OldAppli->Handle;
 
}