Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
14-5801
passm
2003-02-12 16:01
2003.03.03
Аттракцион


8-5662
Victobur
2002-11-20 16:27
2003.03.03
Как сделать анимированную иконку


1-5506
ALEX SLATER
2003-02-20 16:50
2003.03.03
Поиск в Excel


6-5694
Nikk085
2003-01-12 17:48
2003.03.03
Проблемма соединения через инет!


14-5816
Николай В.
2003-02-10 16:41
2003.03.03
PGP