Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Вызов всплывающего меню из позиции курсора   Найти похожие ветки 

 
Артем К   (2003-07-21 14:07) [0]

Привет всем!!!


Делаю компонент с всплывающим меню

TSomething = class(TGraphicControl)
private
FDropMenu: TPopupMenu;
protected
procedure SetDropMenu(Value: TPopupMenu);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
published
DropMenu: TPopupMenu read FDropMenu write SetDropMenu;
end;

....................
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Coordinate: TPoint;
begin
if (FDropMenu <> nil) then begin
Coordinate.X := X;
Coordinate.Y := Y;
ClientToScreen(Coordinate);
FDropMenu.Popup(Coordinate.X, Coordinate.Y);
end;
end;

А она мне все равно не переводит в глобалные координаты и выводит меню не над компонентом а х..й знает где

В чем косяк?

Заранее спасибо!!!


 
NickBat ©   (2003-07-21 14:19) [1]

P: TPoint;
GetCursorPos(P);
Popup.Popup(P.X,P.Y);


 
Артем К   (2003-07-21 14:22) [2]

>>NickBat
Большое спасибо!!! :)



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
6-10341
Кен
2003-05-28 02:30
2003.08.04
Где взять TWebBrouser ? У меня раньше был Дельфи 5, и там он


3-10138
Иванов Сергей
2003-07-14 17:43
2003.08.04
IB подвисает


1-10242
-=[SDA]=-
2003-07-21 12:25
2003.08.04
Как узнать какой именно компонент сгенерировал событие!?


4-10515
grusty
2003-06-02 19:53
2003.08.04
Состояние принтера...


14-10407
Князь Мышкин
2003-07-16 12:38
2003.08.04
Требуется хакер!