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

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



Память: 0.45 MB
Время: 0.012 c