Как заставить системное меню выпасть в указанном месте?

Как в контекстное меню системы Windows?

Может быть, вы можете использовать Keybd_event для eumlate ALT + пробел. Может быть, вы можете использовать TPopupmenu.

Но у них всегда есть какие-то проблемы. Метод ниже является идеальным решением!

BTW: если ваша форма имеет borderstyle = bsNone, пожалуйста, сделайте это так:

Набор форм стиль = bsSingle; и использовать код ниже, чтобы установить бодер форма:

SetWindowLong(ручки, GWL_STYLE,GetWindowLong(ручки, GWL_STYLE) и (не WS_CAPTION) или WS_DLGFRAME или WS_OVERLAPPED);

Code:

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;

Ранние статьи