Как узнать положение компонента относительно десктопа

← →
SergP © (2005-05-26 00:06) [0]

нужно вызвать popupmenu. Но в его методе popup нужно указать координаты.
У меня есть TEdit. При вызове меню нужно чтобы оно отображалось возле эдита, но как оказалось нужно указывать координаты относительно десктопа. Как их попроще узнать?

← →
Gero © (2005-05-26 00:07) [1]

ClientToScreen

← →
Гаврила © (2005-05-26 00:08) [2]

ClientToScreen method (TControl)

← →
SergP © (2005-05-26 00:26) [3]

Хм... Почему же тогда при работе этого кода:

type TMonth = class(TEdit) ..... procedure TMonth.MyKeyPress(Sender: TObject; var Key: Char); var z:Tpoint; begin z:=ClientToScreen(point(left,top)); PopupMenu.Popup(z.X,z.Y); end;

меню появляется не там где находится эдит, т.е.

если пишу
z:=ClientToScreen(point(left,top));
PopupMenu.Popup(z.X-left,z.Y-top);

то все нормально...? Что за фигня такая?

> z:=ClientToScreen(point(left,top));

Не Left, Top, а 0, 0.

Как узнать положение компонента относительно десктопа Найти похожие ветки