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

← →
Артем К (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
Большое спасибо!!! :)

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