Salut

j'etulise Event OnMouseEnter 2 fois
une fois pour le Button BitBtn1
une foi pour Panel1

also je dois le declarer 2 fois, oubien ?

Type
procedure BitBtn1CMMouseEnter(varMessage: TMessage); message CM_MOUSEENTER;
procedure Panel1CMMouseEnter(varMessage: TMessage); message CM_MOUSEENTER;  //error Duplicate !

procedure TForm1.BitBtn1CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
  end;
end;

procedure Form1.Panel1CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = Panel1.Handle then
    Showmessage('--------');
  end;

Réponse acceptée !
Bonjour,
fais une procédure commune aux deux ...

procedure TForm1.ObjectCMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
  end;
if  WindowFromPoint(ptWork) = Panel1.Handle then
    Showmessage('--------');
end;


Et tu prends la même pour les deux ... enfin je crois ^^'
Essaye toujours ...

Cordialement, Bacterius !

Merci
sa marche :)

Réponse acceptée !
Salut,

même si elle fonctionne ce n'est pas la bonne solution.
les évènemments OnMouseEnter et OnMouseLeave sont uniques.
On ne les partagent pas entre 3 Objets (Form BitBtn et Panel)

Si tu avais appliqué la réponse de F0xi (que tu as accèpté) tu n'aurais pas eut ce genre d'erreur !!!



 
@+
Cirec

---

Réponse acceptée !
Bonjour,
Ah mince ! bon ben suis celle de Cirec ^^ c'est lui qui a raison ici :D

Cordialement, Bacterius !

PS : (enleve la réponse acceptée de mon message, sinon d'autres personnes pourraient l'appliquer alors qu'elle est mauvaise ...)