Grid+OnMouseDown [D6, Win2k]
denis24 © (2005-03-17 12:38:00)
Подскажите пожалуста.Как вывести на выделенной записи в гриде
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:00) [1]
> denis24 (17.03.05 12:38)
> И меню рисуется в кординатах экрана а не этой формы...
X и Y - это координаты относительно dbgrid1. В
PopupMenu1.Popup нужно передавать экранные координаты. Значит, надо
перейти в систему координат экрана. У TDBGrid, как потомка
TControl, есть метод ClientToScreen. См. справку.
Наверх 
ЧАТ |
Орешник |
|
