Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.016 c