macro MESSAGE MAP et MESSAGE HANDLER

Bonjour à tous,

Au fil des exemples, des tuto et de mes tentatives, j'ai découvert la macro VCL_MESSAGE_HANDLER.

Code:

---

1 2 3 4

BEGIN_MESSAGE_MAP MESSAGE_HANDLER(Msg, type, fonction) END_MESSAGE_MAP

---

Cela peut être très utile et m'a notamment permis de créer un genre de OnShow à l'aide du message CM_SHOWINGCHANGED.

Connaissez vous un un site/lien/endroit où je pourrai trouver une liste de ces "Msg" (en tout cas les plus utiles)?

Tu as n'as pas de liste, ils sont déclarés dans les unités qui les utilisent !
Ce sont des messages internes à la VCL (CM = Custom Message)
la plupart dans Controls.pas (.hpp)

Pour info il y a egalement une autre technique pour ajouter des messages. C'est la technique du subclassing.
Le principe est le même sauf que au lieu de passer par BEGIN_MESSAGE_MAP on se branche sur la WndProc directement. Cela permet d'ajouter du code, et c'est aussi une technique très pratique pour modifier le comportement/look d'un composant sans avoir besoin d'écrire une nouvelle classe:

Code:

---

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

OnCreate: WindowProcStd = WindowProc; WindowPro = WindowProcSubclass;   OnDestroy: WindowProc = WindowProcStd;   void __fastcall MyForm::WindowProcSubclass(Messages::TMessage &Message) { switch(Message.msg) { case WM_PAINT: if (!OnPaint(Message)) WindowProcStd(Message); break; default: WindowProcStd(Message); } }

---

Merci à tous les deux pour vos réponses.

ShaiLeTroll, ton indication est le mustdo du développeur mais la masse de travail qu'elle implique me fait peur (fichier hpp très touffu et long). 8O

Yarp, j'ai du mal à comprendre ton code, notamment :

Code:

---

1 2 3

if (!OnPaint(Message)) WindowProcStd(Message); break;

---

Ou mettre le code sur la modif du paint?

de plus vue que tu incorpores ta fonction dans la Form

Code:

---

void __fastcall MyForm::WindowProcSubclass(Messages::TMessage &Message)

---

Reprenons l'exemple du show avec M_SHOWINGCHANGED, comment fais-tu la différence entre le show de ta form et le show de ton composant appartenant à la form?

:?

Une autre méthode simple pour traiter les messages, redéfinir la fonction liée à l'évènement OnMessage de la fenêtre (ça marche aussi pour l'objet Application). C'est la méthode que j'utilise tout le temps.

Code:

---

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

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { Application->OnMessage = TraiterMessages; }   void __fastcall TForm1::TraiterMessages(tagMSG &Msg, bool &Handled) { if (CM_SHOWINGCHANGED == Msg.message) { // code de traitement du message Handled = true; } }

---

Si tu mets Handled à true, tu dis au gestionnaire de message par défaut que tu l'a traité toi même et qu'il ne doit pas le traiter.
Si tu n'y touche pas, il reste à false (valeur par défaut à l'entrée dans la fonction TraiterMessages) et le gestionnaire par défaut va le traiter.


Et encore autre méthode : définir la méthode Dispatch de la fenêtre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

void __fastcall TForm1::Dispatch(void *Message) { // Intercepte le message if (CM_SHOWINGCHANGED == ((PMessage)Message)->Msg) { // code de traitement du message }   // Appel du gestionnaire par défaut TForm::Dispatch(Message); }// fin de Dispatch

---

C'est vrai que j'aurais du mettre un exemple d'évenement plus complet.
Il faut savoir que les valeurs de retour dun événement changent d'un événement à l'autre. Pour les uns par de valeur de retour, pour d'autre 0 veux dire ok, et pour d'autres 1. Donc il faut regarder au cas par cas sur le site de Microsoft (Msdn) quoi mettre dans Message.Result si besoin.

Code:

---

1 2 3 4 5

int _fastcall MyForm::OnEraseBkgnd(Messages::TMessage &Message) { Message.Result = 1; return 1; }

---

C'est pareil pour un composant de MyForm, ex. un TreeView:

Code:

---

1 2 3 4 5 6 7 8

TWndMethod MyTreeProcStd;   MyTreeProcStd = tv->WindowProc; tv->WindowProc = MyTreeProcSubclass;   void __fastcall MyForm::MyTreeProcSubclass(Messages::TMessage &Message) { ...

---

Merci Nirgal, je ne connaissais par ces 2 techniques. Plus simples en effet.

ok Yarp merci pour les précisions ça s'éclaircit énormément avec tes exemples.

Par contre nirgal76, je vais te faire la même remarque que j'ai fait à Yard tout à l'heure ... :
Comment fais tu le tri entre les messages adressés à une Form et ceux adressés à combobox, un frame ou tout autre composant VCL... (ou non)

Si mes souvenirs sont bons :
Pour OnMessage (fonction membre de TForm), il ne recevra que les messages destiné à la fenêtre, donc pas de tri, n'arrive que ce qui doit arriver. (messages qui ont été postés pour Form1.Handle. je dis bien posté, par PostMessage. Un message envoyé par SendMessage ne sera pas intercepté par OnMessage).
Quand à Dispatch, il recoit les messages posté pour l'objet (fonction membre de TObject) pour lequel tu as redéfini Dispatch, donc la aussi pas de tri, n'arrive que ce qui doit arriver.