关于popupmenu

Question

我想当鼠标移到按钮bt上时，让popupmenu显示，当鼠标离开popupmenu不显示，我不想通过右键单击实现
这是我下面的代码：
procedure TFrmModel.BtMouseEnter(Sender: TObject);
var
point:TPoint;
begin
getCaretPos(point);
hongpm.Popup(point.X,point.y);
end;
系统出现如下错误
Access violation at address 030F24Af in moudule 'main.ocx'.read of address 0000030C
然后我添加一个离开事件
procedure TFrmModel.BtMouseEnter(Sender: TObject);
系统不响应

Answer 1

PopupMenu3.Popup(mouse.CursorPos.X, mouse.CursorPos.Y)