Главная страница
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.017 c
1-10240
Spawn
2003-07-20 07:16
2003.08.04
Rave


1-10295
Edvard
2003-07-22 12:13
2003.08.04
Помогите с RichEdit !


4-10492
tytus
2003-05-30 23:41
2003.08.04
Информация о файле


7-10471
Senka
2003-05-23 13:40
2003.08.04
Простите за глупый вопрос о СОМ порте


14-10406
crazy_mouse
2003-07-17 14:51
2003.08.04
sql, dbgrid и не знаю ???