大家好！问一个按钮弹出菜单的简单问题

[winsock2000]

大家好问一关于点击按钮弹出菜单的简单问题。
当我点击按钮，在按钮旁边就弹出一个popup菜单！可问题就是如果我的按钮是在panel面板上的，弹出的菜单没有在按钮旁边，跑到了很远的地方，改如何改呢？
为什么我把form1.left换成是panel也不行呢？
大家帮我看看！
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) then //点击鼠标弹出popup菜单？
PopupMenu1.Popup(x + Form1.Left + Button1.Left,
y + Form1.Top + Button1.Top + Button1.Height);

[artman]

将Form1.Left,Form1.Top去掉:
if (Button = mbLeft) then //点击鼠标弹出popup菜单？
PopupMenu1.Popup(x + Button1.Left,
y + Button1.Top + Button1.Height);

[winsock2000]

不行呀！我试了一下！都不知道为什么button放在panel上，就不行了

[artman]

if (Button = mbLeft) then //点击鼠标弹出popup菜单？
PopupMenu1.Popup(x + Form1.Left + Panel1.Left + Button1.Left,
y + Form1.Top + Button1.Top + Panel1.Top + Button1.Height);

[winsock2000]

谢谢artman了，我试了很久，没想到你一下就好了，我不知道原来还可以这样写呀！在次感谢！

[artman]

其实你挪一下Panel1就看出位置差在哪了！

[artman]

其实你挪一下Panel1就看出位置差在哪了！