回 帖 发 新 帖 刷新版面

主题:关于panel上弹出菜单的定位问题

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
  begin
  popupmenu1.Popup(x,y); //该方法把x,y作为屏幕的象素处理,怎么把这个点的坐标转换成在我的panel上显示呢
  end;
end;

回复列表 (共1个回复)

沙发

没那么复杂,这样就行:
var mypoint : Tpoint;

getcursorpos(mypoint);
popupmenu1.popup(mypoint.x, mypoint.y)

我来回复

您尚未登录,请登录后再回复。点此登录或注册