groupbox显示位置

Question

怎么使groupbox在点击右键显示位置为
groupbox左上角的位置为鼠标位置

Answer 1

procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  GroupBox1.Caption := Format('(%d, %d)', [X, Y]);
end;

Answer 2

对不起,我表达错了,我是在点击右键时显示groupbox,希望groupbox显示的位置为鼠标位置

Answer 3

procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  GroupBox1.Left := MousePos.X;
  GroupBox1.Top := MousePos.y;
end;

Answer 4

procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; 
  var Handled: Boolean); 
begin 
  GroupBox1.Left := MousePos.X; 
  GroupBox1.Top := MousePos.y; 
end;

Answer 5

还是我没说清楚
PopupMenu1的n1点击事件呀,麻烦各位了