有两个问题请作答！！在线等你

Question

第2个问题：
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
        releasecapture;
        perform(WM_SYSCOMMAND,$F009,0);
end;

Answer 1

第一个问题：
procedure TForm1.Button1Click(Sender: TObject);
var point1 : Tpoint;
begin
  point1.x := button1.Left;
  point1.y := button1.Top;
  point1 := clienttoscreen(point1);
  popupmenu1.Popup(point1.x,point1.y+button1.Height);
end;
这样菜单的显示位置绝对是按钮的下面。