如何实现这个功能？关于 mouse

Question

有一个TTabControl和一个TPanel(在它上面有一些控件）。  
 
当mouse落在每个Tab上时，弹出panel。当mouse进入panel，如果mouse离开，panel不可见。

Answer 1

给你一个相关的，表示鼠标进入和离开的，其它的都应该和简单了，自己研究一下
  procedure CMMouseEnter(var Msg:TMessage);message CM_MOUSEENTER;
  procedure CMMouseLeave(var Msg:TMessage);message CM_MOUSELEAVE;procedure TFrmMain.CMMouseEnter(var Msg: TMessage);
begin
  if TObject(msg.LParam)=image61 then
    begin
     image61.Visible := False;
     image611.Visible := True;
    end;
end;procedure  TFrmMain.CMMouseLeave(var Msg: TMessage);
begin
  if TObject(msg.LParam)=image611 then
    begin
     image61.Visible := True;
     image611.Visible := False;
    end;
end;