Undeclared BitBtn1 ? Wenn das Button auf Panel liegt

[Delphiturbo]

Liegt es nicht daran, dass ich OnMouseEnter für 2 Sachen verwende
Also ich muss vielleicht 2 mal deklarieren

Ich verwende den Code ein mal wenn der Cursor auf BitBtn
und ein mal wenn der Cursor auf Panel3 kommt

Delphi-Quellcode:

  private
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

Vielleicht

Delphi-Quellcode:

// 1 mal
procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn2.Handle then
  begin
    BitBtn2.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn2.Glyph);
  end;
end;

// 2 mal
procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = Panel3.Handle then
    showMessage('xxxxxx');
  end;

ich habe den Code in ein neu es Projekt getestet und funktioniert auch wenn das BitBtn auf ein Panel liegt!