Discussion :

[Lung]

Comment intégrer une fenêtre d'une DDL dans une fenêtre d'un exe ?

J'ai essayé de jouer avec la propriété ParentWindow, mais si la fenêtre (DLL) apparait bien à l'intérieure de la fenêtre (EXE), je n'ai plus la main; tout est bloqué.

Voici un extrait de ce que je fais dans ma DLL :

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
      FormOutilsColisage := TFormOutilsColisage.Create(Application);
      try
         //.Si fenêtre parent.
         if HandleFenParent <> 0 then
         begin
            FormOutilsColisage.BorderStyle := bsNone;
            FormOutilsColisage.Parent := nil;
            FormOutilsColisage.ParentWindow := HandleFenParent;
         end;
 
         //.Affichage de la fenêtre.
         FormOutilsColisage.ShowModal;
      finally
         FormOutilsColisage.Release;
      end;

Sachant que HandleFenParent est de type HWND. Et dans l'exe hôte, je lui passe FormEXE.Handle.

Comment faut-il faire ?

[tourlourou]

est-ce que ça affecterait le traitement des messages à la fenêtre parent ?

[Andnotor]

Personnellement, je ne créerais rien dans la DLL. Je définirais uniquement une procédure exportée permettant d'enregistrer les classes (RegisterClass), les instantiations étant gérées normalement depuis l'exe.

Voir ce sujet.

[Lung]

est-ce que ça affecterait le traitement des messages à la fenêtre parent ?

C'est pas le but.
La fenêtre de ma DLL est sencée être autonome.

En fait, en fonction d'un paramètre que je lui passe :
- soit la fenêtre de la DLL est indépendante, comme le serait une fenêtre fille modale.
- soit elle est intégrée à l'intérieure d'une fenêtre de l'exe hôte (ce que je n'arrive pas à faire).

Personnellement, je ne créerais rien dans la DLL. Je définirais uniquement une procédure exportée permettant d'enregistrer les classes (RegisterClass), les instantiations étant gérées normalement depuis l'exe.

Voir ce sujet.

Je ne comprend pas le rapport avec mon problème.
Tu peux expliquer un peu plus ?

[tourlourou]

Dans le ShowModal, il y a désactivation des entrées de la fenêtre active :

The EnableWindow function enables or disables mouse and keyboard input to the specified window or control. When input is disabled, the window does not receive input such as mouse clicks and key presses. When input is enabled, the window receives all input.

Comme Form2 est enfant de Form1, elle ne reçoit donc plus les entrées...

Ca semble interdire le ShowModal dans ce cadre...

on peut bricoler de pâles imitations :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//  Form2.Parent:=ForMain;
  Form2.ParentWindow:=self.Handle;
  Form2.BorderStyle:=bsNone;
//  Form2.ShowModal;
//  EnableWindow(ForMain.Handle, True);
  while Form2.ModalResult=0
  do begin
    Form2.SetFocus;
    Application.ProcessMessages;
  end;     
  ShowMessage('fini');

mais le rendu n'est pas le même !

Peut-on imaginer un Timer qui irait rendre le focus à Form2.Handle grâce à un EnableWindow ? Ce serait encore plus bricolo !!!

[skywaukers]

Bonjour,

ce que tu peux faire c'est utiliser des frames plutôt que des forms. cela va beaucoup mieux pour les intégrer dans une autre form. Et si tu veux l'afficher en indépendante, il suffit de la coller dans une form vierge.

@++
Dany

[Lung]

while Form2.ModalResult=0
do begin
Form2.SetFocus;
Application.ProcessMessages;
end;
ShowMessage('fini');[/code]
mais le rendu n'est pas le même !

J'ai testé ta solution.
Effectivement, il y a un mieux, mais le reste de la fenêtre "hôte" répond mal.

J'ai finit par séparer la création (et affichage) de la destruction de la fenêtre (DLL):

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
procedure InitOutilsColisageDLL(HandleApp: HWND; HandleFenParent: HWND; pSession: ...);
...
      FormOutilsColisage := TFormOutilsColisage.Create(Application);
      try
         //.Si fenêtre parent.
         if HandleFenParent <> 0 then
         begin
            FormOutilsColisage.BorderStyle := bsNone;
            FormOutilsColisage.Parent := nil;
            FormOutilsColisage.ParentWindow := HandleFenParent;
            FormOutilsColisage.Show;
            FormOutilsColisage.SetFocus;
            Application.ProcessMessages;
         end
         else
         begin
            //.Affichage de la fenêtre.
            FormOutilsColisage.ShowModal;
         end;
      except
         FormOutilsColisage.Free;
      end;
...
end;
 
procedure FermerOutilsColisageDLL;
begin
   FormOutilsColisage.Free;
...

Et là, ca semble bien fonctionner.
On va dire que c'est bon (jusqu'à preuve du contraire).
pour votre aide.

ce que tu peux faire c'est utiliser des frames plutôt que des forms. cela va beaucoup mieux pour les intégrer dans une autre form.

J'en ai jamais utilisé. Mais, dans ce cas, il aurait peut-être fallu effectivement.