Координаты Popup-меню

← →
Eraser (2004-03-28 22:25) [0]

Как получить координаты Popup-меню при его появлении, если оно было вызвано с помощью клавиши?

← →
P.N.P. © (2004-03-28 22:29) [1]

TPopUpMenu.OnPopUp:

procedure TForm1.PopupMenu1Popup(Sender: TObject); begin ShowMessage(IntToStr(PopUpMenu1.PopupPoint.X)); end;

← →
Eraser (2004-03-28 22:42) [2]

> P.N.P. © (28.03.04 22:29)

Пустая форма, три TButton"a.
Form1.PopupMenu := PopupMenu1;
При вызове меню с помощью клавиши на любом из Button"ов, PopupMenu1.PopupPoint.X возвращает одно и то же число.
Если вызывать мышкой, то тогда координаты нормальные.
Отчего так?

← →
P.N.P. © (2004-03-28 22:46) [3]

> Отчего так?

от того, что меню по умолчанию располагается
в верхнем левом углу, а при нажатии мышкой
появляется под курсором - для удобства.

← →
Eraser (2004-03-28 22:55) [4]

Спасибо, а я сразу и не подумал.

Координаты Popup-меню Найти похожие ветки