// TWinControl *Object - параметр функции
int Value = 0; // результат функции
while (Object <> NULL)
{
Value += Object->Left;
if (dynamic_cast <TForm*> (Object)) // Для Delphi - if Object is TForm
break; // Объект - форма, выходим из цикла
else
Object = Object->Parent; // Проверяем "родительский" компонент
}
return Value; // координата компонента на экране
Расположение компонента на экране.
Привет!
Есть форма с панелью, на которой находиться кнопка.
Как можно вычислить Left и Top кнопки относительно Screen?
Пробовал сумировать Width'и, но тогда не очень точно получается.
Спасибо за любую инфу!
Проблема решена!
Есть форма с панелью, на которой находиться кнопка.
Как можно вычислить Left и Top кнопки относительно Screen?
Пробовал сумировать Width'и, но тогда не очень точно получается.
Спасибо за любую инфу!
Проблема решена!
По циклу указателей на "родителя". Берём значение Left, потом смотрим указатель на Parent
Код:
MacCybex, надо бы метод решения проблемы привести здесь. Может у кого-нибудь другого возникнет такая же ;)
Подозреваю, решение твоей проблемы заключалось в вызове функций TControl.ClientToScreen/TControl.ScreenToClient?
Подозреваю, решение твоей проблемы заключалось в вызове функций TControl.ClientToScreen/TControl.ScreenToClient?
Всё оказалось проще:
Button1.ClientOrigin.X
Button1.ClientOrigin.Y
Button1.ClientOrigin.X
Button1.ClientOrigin.Y