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





■使用するAPI関数

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

システムメニューをポップアップ表示する処理
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のページへ



ホーム PV ランキング