Тема: Форматирование текста
Показать сообщение отдельно
  #11  
Старый 07.04.2016, 13:46
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию
активный Control на активной Form :
Код:
Screen.ActiveForm.ActiveControl
проверка на nil ActiveForm и ActiveControl не помешает.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием