[Delphi Win32] Comment intercepter le message WM_CTLCOLOR ?

Bonjour à tous,

J'aimerais intercepter le message WM CTLCOLOR. Je suis un habitué du C# et du MFC alors je suis un peu perdu. Quelqu'un pourrais me mettre sur une piste ?

En MFC je faisais ceci :

Code:

---

1 2 3 4 5 6

HBRUSH CTransparentStatic::CtlColor(CDC* pDC, UINT /*nCtlColor*/) {   pDC->SetBkMode(TRANSPARENT);   return (HBRUSH)GetStockObject(NULL_BRUSH); }

---

Merci beaucoup !

la technique de base en delphi pour intercepter les messages :

Code:

---

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

interface type MaClasse = class(TWinControl) private procedure WMCTLCOLOR(var message: TMessage); message WM_CTLCOLOR; end; implementation procedure MaClasse.WMCTLCOLOR(var message: TMessage); begin //ici le code lors de la reception du message end;

---

regarde le code source des composants de la VCL, tu trouvera des exemples
tu aura certainement besoin de mettre en uses Windows et Messages

Wow, merci c'est très gentil de ta part.

Quand j'utilisais Dephi 2 et 5, je me rappel qu'il y avait toujours l'aide qui venait avec et qui était très bien fait. Comme par exemple la hiérarchie des classes. Qu'est-elle devenue ? J'ai télécharger la version d'évaluation de Dephi 11 mais je n'ai pas d'aide qui vient avec, est-ce normal ?

Merci encore

je sais pas, moi je suis sous delphi 7, et elle est toujours très pratique :D

PS: en regardant dans Messages.pas, j'ai trouvé ca:

Code:

---

1 2 3 4 5 6 7

TWMCtlColor = packed record Msg: Cardinal; ChildDC: HDC; ChildWnd: HWND; Result: Longint; end;

---

donc tu peux remplacer la declaration par :

Code:

---

procedure WMCTLCOLOR(var message: TWMCtlColor ); message WM_CTLCOLOR;

---

PS2:
j'ai oublié mais il faut que tu ajoute un inherited; dans l'implementation si un ancetre de ton composant doit gerer ce meme message

Ce message n'est jamais intercepté alors ce que je désirais faire ne fonctionnera pas.

J'ai trop fait de C# ces dernières années, je m'ennuie donc de Delphi VCL :cry:

Merci BEAUCOUP pour ton aide, c'est grandement apprécié ;)