Вопросы и Ответы
56. Как вызвать Pop-Up меню не используя правую кнопку мыши?
Для вызова меню нужно воспользоваться методом Popup объекта TPopupMenu:
procedure Popup(X, Y: Integer);
X и Y задаются в координатах экрана.
............
procedure
TForm1.Button1Click(Sender: TObject); PopupMenu1.PopUp(Left+5, Top+5); end; ............
begin
...предыдущая страница следующая...
оглавление