error Duplicate !!!Résolu

Question

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;

Bacterius · Accepted Answer

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 !

Delphiturbo · Answer

Merci
sa marche :)

Bacterius · Answer

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

Error Duplicate !!!

3 réponses

Votre réponse

Discussions similaires