Hook sur un seul composant d'un TFrom

Salut à tous,

je souhaiterais faire un Hook sur un seul composant de ma fiche. Afin de récupérer toutes les actions souris et calvier dessus.

Mon problème est : étant donné que les balises BEGIN_MESSAGE_MAP...END_MESSAGE_MAP sont a déclarer dans la TForm.

Mon problème est donc de savoir si le message que je vais recevoir est bien destiné au TLabel sur lequel je veux faire les hooks et comment transmettre le message au bon composant s'il n'était pas destiné à ce TLabel hooké.

Merci d'avance pour votre aide !

Salut

Dérive ton TLabel et créée un MessageMap dessus:

Dans le unit.h fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
class myTLabel : public TLabel
{
private:	// Composants gérés par l'EDI  WM_DRAGDROP
    void __fastcall OnRBUTTONUP(TMessage& Msg);
public:		// Déclarations de l'utilisateur
     __fastcall myTLabel(TComponent* Owner);
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_RBUTTONUP,TMessage,OnRBUTTONUP)
END_MESSAGE_MAP(TLabel)
};
 
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
    TLabel *Label1;
    myTLabel *myLabel;
private:	// Déclarations de l'utilisateur
public:		// Déclarations de l'utilisateur
    __fastcall TForm1(TComponent* Owner);
};

Dans le .ccp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 __fastcall myTLabel::myTLabel(TComponent* Owner)
    : TLabel(Owner)
{
  // N'oublie pas de le mettre, sinon ça marche pas
   Parent = ((TLabel*)Owner)->Parent;
  // tes initialisations
  ........................... 
}
// Dans le TForm1
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    myLabel = new myTLabel(Label1);
  .......................
}
void __fastcall myTLabel :: OnRBUTTONUP(TMessage& Msg)
{
   MessageBox(NULL, "Got", "myLabel", MB_OK);
}

Ok merci bpc ! :ccool: