Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
ВнизКоординаты, точки в которой щелкнули мышью Найти похожие ветки
← →
Sour (2004-02-15 12:39) [0]Есть форма, на которой меню панель инструментов и т. д.
На форме также нахотся TreeView. Необходимо, показать Popup, в случае, когда кликнули на элементе дерева.
В OnMouseDown я пишу
if Button = mbRight then
if tvGroups.GetNodeAt(x, y) <> nil then
PopupMenu1.Popup(fmMain.Left + Left + x, fmMain.Top + fmMain.ControlBar1.Height + Top + ControlBar1.Height + y);
Но все равно Popup оказывается выше, чем надо.
Как получить "абсолютные" (на всем декстопе, а то в OnMouseDown передаются координаты внутри компонета) координаты точки, где нажали мышью?
← →
Sour (2004-02-15 12:43) [1]Спасибо разобрался: ClientToScreen
← →
Digitman (2004-02-15 12:43) [2]var
APoint: TPoint;
...
APoint := (Sender as TControl).ClientOrigin;
PopupMenu1.Popup(x + APoint.X, y + APoint.y);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c