évènement survole et quitte le controleRésolu

Question

j'ai créer un bouton avec des controles image, mais maintenant je sais pas comment faire pour ajouter mon image lorsque le curseur survole le controle.

Existe-t-il un évènement lorsque le curseur survole quelque chose et lorqu'il quitte celui ci???

Loulibier · Accepted Answer

tu declares ces deux variables, procedure dans ton private.
FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

tu déclares deux propriétés dans published:
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;


voici le code de tes deux procedure :

procedure TCustomLabel.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TCustomLabel.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;


Compile ton composant et tu verras apparaitre dans les evenements de ton composant le ONMouseEnter et le OnMouseLeave.

Bonne Prog,

Olivier.

Loulibier · Answer

salut cricri_b34,

 je suppose que tu dois savoir comment on implémente un évènement dans un composant ?

  voici donc deux procedure qui capte les évènements de la souris qui entre et qui sort de ton composant.


procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;


Bonne Prog,

Olivier.

cricri_b34 · Answer

euh.....

en réalité je sais pas vraiment comment adapter ces évènement pour mon controle button nommé button1 est ce que tu pourrais m'aider :-P

Momo8910 · Answer

J'ai le même problème mais je n'arrive pas à comprendre comment faire pour compiler le composant ??

Quelqu'un pourrait il m'expliquer ?

évènement survole et quitte le controle

4 réponses

Votre réponse

Discussions similaires