カーソル位置の取得

GetCursorPos関数にTPoint型の変数を渡してやればいい。

procedure ShowPopupMenu();
var
Pos: TPoint;
begin
GetCursorPos(Pos);
PopupMenu.Popup(Pos.X, Pos.Y);
end;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です