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;

dbgViewMouseUp Найти похожие ветки