Trucs et astuces pour C++ Builder

Gestion des événements OnMouseEnter et OnMouseExit

CGI

- Titre : Trucs et astuces pour C++ Builder

- Auteur : CGI

- Parution : 23 octobre 2002

- Licence : Copyright 2002-2016 CGi - Tous droits réservés CGi. Toutes reproduction, utilisation ou diffusion de ce document par quelque moyen que ce soit autre que pour un usage personnel doit faire l'objet d'une autorisation écrite de la part de l'auteur, propriétaire des droits intellectuels. Les codes sources de ce document sont fournis en l'état. L'utilisateur les utilise à ses risques et périls, sans garantie d'aucune sorte de la part de l'auteur. L'auteur n'est responsable d'aucun dommage subi par l'utilisateur pouvant résulter de l'utilisation ou de la distribution des codes sources de ce document. De la même façon, l'auteur n'est en aucun cas responsable d'une quelconque perte de revenus ou de profits, ou de données, ou de tous dommages directs ou indirects, susceptibles de survenir du fait de l'utilisation des codes sources de ce document, quand bien même l'auteur aurait été averti de la possibilité de tels dommages. L'utilisation des codes sources de ce document vaut acceptation par l'utilisateur des termes de la licence ci-dessus.

Sommaire

- I. Gestion des événements OnMouseEnter et OnMouseExit

I - Gestion des événements OnMouseEnter et OnMouseExit

Pour l'exemple, nous allons poser un Label (Label1) sur une fiche (Form1). Nous passerons le texte du label en rouge quand le curseur viendra au-dessus puis en bleu quand il en sortira.

Unit1.h

Déclaration d'une variable TWndMethod pour mémoriser la procédure de fenêtre de Label1 et la méthode de la nouvelle procédure de fenêtre.

private:    // Déclarations de l'utilisateur
Controls::TWndMethod OldLabelWP;
void __fastcall NewLabelWP(TMessage &Msg);

Unit1.cpp

Événement OnCreate de Form1, sauvegarde de l'ancienne procédure de fenêtre de Label1 et affectation de la nouvelle.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
OldLabelWP = Label1->WindowProc;
Label1->WindowProc = NewLabelWP;
}

Nouvelle procédure de fenêtre de Label1 : traitement des commandes CM_MOUSELEAVE et CM_MOUSEENTER sinon appel de l'ancienne procédure de fenêtre si autre message.

void __fastcall TForm1::NewLabelWP(TMessage &Msg)
{
if (Msg.Msg == CM_MOUSELEAVE) //OnMouseExit
{
Label1->Font->Color = clBlue;
}
else if (Msg.Msg == CM_MOUSEENTER) //OnMouseEnter
{
Label1->Font->Color = clRed;
}
else OldLabelWP(Msg);
}

Cette façon de faire est obsolète sur BCB6, on a accès à ces événements dans l'inspecteur d'objets (OnMouseEnter et OnMouseLeave).

Retour à l'index.