Текущий архив: 2003.03.03;
Скачать: CL | DM;
Вниз
dbgViewMouseUp Найти похожие ветки
← →
Антон. (2003-02-21 10:37) [0]procedure TfPrice_list.dbgViewMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
if Button=mbRight then
PM.Popup(X,Y);
end;
странные координаты возвращаются в X и Y приходится писать что то типа PM.Popup(X+60,Y+60); чтобы менюшка появлялась над курсором мыши
← →
Clickmaker © (2003-02-21 11:14) [1]procedure TfPrice_list.dbgViewMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
PopupPos: TPoint;
begin
inherited;
if Button=mbRight then begin
PopupPos := TWinControl(Sender).ClientToScreen(Point(X, Y));
PM.Popup(PopupPos.X, PopupPos.Y);
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.03.03;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
