Mega Code Archive

 

Categories / Delphi / System

 

How to popup the system menu at a specified position

Title: How to popup the system menu at a specified position procedure TForm1.Button1Click(Sender: TObject); const { Undocument message ID } WM_POPUPSYSTEMMENU = $313; begin SendMessage(Handle, WM_POPUPSYSTEMMENU, 0, MakeLong(Mouse.CursorPos.X, Mouse.CursorPos.Y)); end;