Discussion :

[Erakis]

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 :

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

1
2
3
4
5
6
 
HBRUSH CTransparentStatic::CtlColor(CDC* pDC, UINT /*nCtlColor*/)
{
   pDC->SetBkMode(TRANSPARENT);
   return (HBRUSH)GetStockObject(NULL_BRUSH);
}

Merci beaucoup !

[guillemouze]

la technique de base en delphi pour intercepter les messages :

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
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

[Erakis]

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

[guillemouze]

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

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

Code :

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

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 :

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

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

[Erakis]

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

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