Цитата:
|
Хотел б узнать, как можно вызвать при нажатии правой кнопкой мыши по кнопке вызвать системное меню, которое выходит при нажатии по заголовку активного окна правой(левой) кнопкой мыши. Пробовал через GetSystemMenu(прописывал в OnPopup), но не получается.
|
Странно.... а у меня именно таким образом все работает (в OnPopup)
вот пример работающего у меня кода:
Код:
procedure TForm1.Button1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var Mmenu: HMenu;
begin
Mmenu:= GetSystemMenu(Form1.Handle,false);
TrackPopupMenu(Mmenu,TPM_CENTERALIGN and TPM_RIGHTBUTTON,100,100,0,Form1.Handle,Nil);
end;