저는 이상없이 잘 되는군요?
문제는 팝업 메뉴가 전체화면으로 위치를 계산해서 나오기 때문에
위치를 Panel1의 좌표로 바꾸어 주어야 한다는 것이네요
아래 에서 '//요거!'라는 라인을 보면 바꾸어 주었습니다.
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
po: TPoint;
begin
po.x:=x;
po.y:=y;
if Button = mbRight then
begin
po:=Panel1.ClientToScreen(po); //요거!
PopupMenu1.Popup(po.X,po.Y);
end;
end;
그럼...
|