Discussion :

[ErPi]

Bonjour à tous et à toute,

J'ai deux éxecutables. Le premier envoie un message, le second le réceptionne.
Celui qui fait la réception est une application MDI.

Ca marche à moitié,

le problème est que dès que j'ai une fenetre fille (dans celui qui réceptionne) et que cette dernière est maximisé, ça ne fonctionne plus.


-----------------------------------------
celui qui envoie un message :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
 h: THandle;
 atom_Envoye: Atom;
begin
 Code:='exemple';
 atom_Envoye := GlobalAddAtom(PChar(Code));
 h := FindWindow(nil, PChar('CeluiQuiReceptionne'));
 if h = 0 then
  ShowMessage('CeluiQuiReceptionne est inactif')
 else
  SendMessage(h, WM_GO_DEMO, atom_Envoye, 0);
end;

-----------------------------------------
celui qui réceptionne

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
procedure TMainForm.DefaultHandler(var msg);
var
 TexteRecu: PChar;
 atom_recu: atom;
begin
 if TMessage(msg).Msg = WM_GO_DEMO then begin
    // le numéro identifiant l'atom se trouve dans WParam
    atom_recu := TMessage(msg).WParam;
    GetMem(TexteRecu, 256);
    GlobalGetAtomName(atom_recu, TexteRecu, 256);
    //ici on traite TexteRecu...
    GlobalDeleteAtom(atom_recu);
    FreeMem(TexteRecu);
    TMessage(Msg).Result:=200;
   end
   else inherited DefaultHandler(Msg); 
end;

----------------------------------
J'ai aussi essayé avec le

Code :

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

OnMessage

mais sans résultat.

Si quelqu'un a une idée.

Merci à tous et à toute

[portu]

J'ai une application MDI avec les fenetres filles maximisées et aucun problème.

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
 
public
    procedure DefaultHandler(var Message); override;
....
....
procedure TMainForm.DefaultHandler(var Message);
Begin
///
   inherited DefaultHandler(Message);
 
   If TMessage(Message).Msg = Msg_Close then begin
   Application.Terminate;
   end;
 
end;

[ErPi]

J'ai fais rapido une application MDI avec le "New Project" de Delphi et j'ai le même problême???

[portu]

Je viens de faire un essai et ca marche très bien meme lorsque le fiche fille est maximisée. Maintenant, il faut bien faire attention que lorsque la fenetre fille est maximisée, son Caption s'ajoute au Caption de la fenetre Parente (Je suppose que tu l'as bien vu ).

Par contre un truc assez étrange est que si j'envoie un message à une fenetre dont son Caption se tremine par un numéro , ca ne va pas ?

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
 
//Envoi
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(FindWindow(nil,'Form1'),Msg_Close,0,0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Msg_Close := RegisterWindowMessage('Msg_Close');
end;
 
//recept
procedure TForm1.DefaultHandler(var Message);
Begin 
/// 
   inherited DefaultHandler(Message); 
 
   If TMessage(Message).Msg = Msg_Close then begin
   ShowMessage('coucou'); 
   end;
 
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Msg_Close := RegisterWindowMessage('Msg_Close');
end;

Donc si le Caption de la fenetre parente de l'application réceptrice se termine par un chiffre (Ex Form1), ca ne va pas ! Si maintenant je mets une lettre après ce chiffre ou que je l'enlève (Ex Form1x ou Form) là, ca marche ! Etrange ca !

[ErPi]

. Maintenant, il faut bien faire attention que lorsque la fenetre fille est maximisée, son Caption s'ajoute au Caption de la fenetre Parente (Je suppose que tu l'as bien vu ).

"ben non" j'avais pas vu ça!!

Si je comprend bien c'est pour cela que ca ne marche pas.

Le problême est que je ne peux pas savoir quel sera le caption de la fenêtre fille. Y a t-il moyen de contourner le problême du FindWindow?

merci portu

[Graffito]

Bonjour,

Une solution pas trés élégante consisterait à obtenir via un repeat ou un while sur la fonction "FindwindowEx" avec comme indication de caption la valeur NULL.
Cela permet de parcourir la liste des fenêtre du desktop.
En utilisant la fonction "GetWindowText", on obtient le caption de chaque fenétre et on a trouvé dès qu'il est identique au caption désiré (si non maximized) ou dès qu'il le contient (si maximized).

[ErPi]

Ouais Graffito!
J'ai utilisé la fonction EnumWindows pour avoir la liste des fenetres; je peux ainsi trouver la bonne!

Merci