Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Derevyanniy kak Rels © (2005-01-26 14:36:00)
А можно это как то узнать ?

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

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

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

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

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

как быть ?

MBo (2005-01-27 07:23:00) [1]
>KSergey © (26.01.05 15:39) [4]
> [3] MBo © (26.01.05 14:55)
> GetParentForm
>В каком смысле?

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

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

Derevyanniy kak Rels (2005-01-26 16:07:00) [2]
Вот так вот будет правильней , точнее то что мне нужно .
p := Form1.ScreenToClient(Button1.ClientToScreen(p));

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

KSergey (2005-01-26 15:39:00) [3]
> [3] MBo © (26.01.05 14:55)
> GetParentForm

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

MBo (2005-01-26 14:55:00) [4]
GetParentForm

Александр Иванов (2005-01-26 14:40:00) [5]
ScreenToClient?

KSergey (2005-01-26 14:40:00) [6]
p: TPoint

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »