Текущий архив: 2005.03.27;
Скачать: 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 вся ветка
Текущий архив: 2005.03.27;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.024 c
