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

Grid+OnMouseDown   Найти похожие ветки 

← →
denis24   (2005-03-17 12:38) [0]

Подскажите пожалуста.Как вывести на выделенной записи в гриде popupmenu.
Обрабатываю событие onMousedown  этого грида
procedure TfrmStart.dbgrid1MouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbRight then PopupMenu1.Popup (x,y);
end;

И меню рисуется в кординатах экрана а не этой формы...

---

← →
begin...end ©   (2005-03-17 12:58) [1]

> denis24   (17.03.05 12:38)

> И меню рисуется в кординатах экрана а не этой формы...

X и Y - это координаты относительно dbgrid1. В PopupMenu1.Popup нужно передавать экранные координаты. Значит, надо перейти в систему координат экрана. У TDBGrid, как потомка TControl, есть метод ClientToScreen. См. справку.

---

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

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



Память: 0.44 MB
Время: 0.031 c