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. См. справку.

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