|
#1
|
|||
|
|||
Контекстное меню
Хотел б узнать, как можно вызвать при нажатии правой кнопкой мыши по кнопке вызвать системное меню, которое выходит при нажатии по заголовку активного окна правой(левой) кнопкой мыши. Пробовал через GetSystemMenu(прописывал в OnPopup), но не получается.
|
#2
|
|||
|
|||
Цитата:
Странно.... а у меня именно таким образом все работает (в 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; |
#3
|
|||
|
|||
Спасибо за совет!!!!
|