Question

Delphi 当 在ONBUTTONCLICK事件下, 设置 PANEL的坐标位置 自动显示在 鼠标指针的位置

Answer 1

Procedure TForm1.FormClick(Sender: TObject);
Var
  P: TPoint;
Begin
  GetCursorPos(p);
  p := ScreenToClient(p);
  Panel1.Left := p.x;
  Panel1.top := p.y;
End;