ChesterUTD
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Var ctrl : IControl; begin ctrl := ObjectAtPoint(Screen.MousePos); If Assigned(ctrl) Then caption := ctrl.GetObject.QualifiedClassName; | kaz_av спасибо, проверил, вариант прокатит, хотя тут в примере показывает только верхний компонент, сперва тупо показывало 1 контрол и не менялось, но потом вспомнил, что координаты относительные и считаются в Firemonkey, как выдираются зубы в одном известном методе - те через анус той самой monkey и выше до ротовой полости, те считаются все смещения компонентов, в которые вложен искомый. Может кому понадобится, считаются таким способом: Ссылка Добавлено: Еще есть вопрос - кто как хранит цвет в БД, к примеру MySQL, чтобы потом можно было из запроса менять цвет какого-нибудь компонента и наоборот загонять его в БД? | Всего записей: 2 | Зарегистр. 06-02-2017 | Отправлено: 18:29 07-02-2017 | Исправлено: ChesterUTD, 18:32 07-02-2017 |
|