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

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

← →
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);

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

---

← →
Gero ©   (2005-05-26 00:29) [4]

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

Не Left, Top, а 0, 0.

---

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

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



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