システムメニューをポップアップ表示する

システムニューをポップアップ表示する

■使用するAPI関数

GetCursorPos（マウスカーソルの現在の位置を取得する）
SendMessage（指定のウインドウにメッセージを送る）

■ソースは下記のようになります。

■システムメニューをポップアップ表示する処理

procedure


TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

Var

　MousePos :Tpoint;

Const

　WM_SYSTEMMENU=$313 ;

begin



　if ssRight
in Shift then

　begin



　　　//現在のカーソルの位置を取得する

　　　GetCursorPos(MousePos);



　　　//システムメニューをポップアップ表示する

　　　SendMessage(Form1.Handle,
WM_SYSTEMMENU, 0,(MousePos.X or ((MousePos.Y) * 　$10000)));



　end;



end;

Win32APIのページへ