Скачать: CL | DM;

Координаты 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.121 c