[DELPHI6] Et SendMessage

Bonjour,

J'ai deux éxecutables. Le premier envoie un message, le second le réceptionne. Aucun problème jusque là. Mais maintenant je souhaite savoir si SendMessage a été traité. Dans la procédure de message je positionne la valeur result du message à une certaine valeur croyant la récupérée dans le programme émeteur. Erreur je récupère toujours zéro.

Voici le code que j'utilise :

Code:

---

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

// Programme émetteur :   procedure EmetUnMessage(); Var iValue : Integer; Begin iValue:=SendMessage(HandleValide,MSG_VALIDE,0,0); // J'affiche ici la valeur retournée par SendMessage ShowMessage(IntToStr(iValue)); End;   // Programme récepteur :   procedure FormTest.DefaultHandler(var Message); Begin With TMessage(Message) Do Begin If Msg=MSG_VALIDE Then Begin // Je log bien le message AppendLog('Message : MMSG_VALIDE'); // Je positionne la valeur retournée TMessage(Message).Result:=200; End; End; Inherited DefaultHandler(Message); End;

---

C'est le inherited DefaultHandler qui casse tout ;)
Tu ne dois l'appeler que si tu n'as pas déjà traité ton message toi-même, car il met Result à 0 s'il ne sait pas quoi faire ;) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure FormTest.DefaultHandler(var Message); begin with TMessage(Message) do begin if Msg = MSG_VALIDE then begin // Je log bien le message AppendLog('Message : MMSG_VALIDE'); // Je positionne la valeur retournée TMessage(Message).Result:=200; // On quitte pour éviter le inherited DefaultHandler exit; end; end; inherited DefaultHandler(Message); end;

---

Merci beaucoup rédacteur.