カーソル位置の取得




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

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



コメントを残す

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