主题:关于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;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
begin
popupmenu1.Popup(x,y); //该方法把x,y作为屏幕的象素处理,怎么把这个点的坐标转换成在我的panel上显示呢
end;
end;