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;