"Абсолютная" позиция контрола относительно формы

← →
Derevyanniy kak Rels (2005-01-26 14:36) [0]

А можно это как то узнать ?

то-есть я имею ввиду, к примеру .

Есть форма на ней есть панель .
на этой панели есть кнопка.

и относительно формы , координаты у нее будут

l := Panel.Left + Button1.Left ;
w := Panel.Top + Button1.Top;

ну а если у меня кол-во панелек друг на друге будет штук 10 .
и на самой последней кнопка .
перебирать всех предков как то не хочется , к тому же
еще и определять BorderStyle итд .

как быть ?

← →
Александр Иванов © (2005-01-26 14:40) [1]

ScreenToClient?

← →
KSergey © (2005-01-26 14:40) [2]

p: TPoint

p := Button1.BoundsRect.LeftTop (или TopLeft)
p := Button1.ClientToScreen (p);
p := Form1.ScreenToClient(p);

← →
MBo © (2005-01-26 14:55) [3]

GetParentForm

← →
KSergey © (2005-01-26 15:39) [4]

> [3] MBo © (26.01.05 14:55)
> GetParentForm

В каком смысле?

← →
Derevyanniy kak Rels (2005-01-26 16:07) [5]

Вот так вот будет правильней , точнее то что мне нужно .
p := Form1.ScreenToClient(Button1.ClientToScreen(p));

спасибо !
как говориться век живи век учись :)

>KSergey © (26.01.05 15:39) [4]
> [3] MBo © (26.01.05 14:55)
> GetParentForm
>В каком смысле?

это в помощь по этому вопросу:

>ну а если у меня кол-во панелек друг на друге будет штук 10 .
и на самой последней кнопка .перебирать всех предков как то не хочется

"Абсолютная" позиция контрола относительно формы Найти похожие ветки