TabOrder
Как в программе получить TabOrder? Хочу знать имя компонента и его порядковый номер в TabOrder.
Поясни задачу, тебе надо узнать как называется компонент в программе и TabOrder по какому-то событию(напр. по клику мышой)?
Всё очень просто. Например у меня есть компонент, который в данный момент имеет фокус ввода. Как мне узнать его порядковый номер в TabOrder и узнать имя компонента, оторый в TabOrder предыдущий.
Цитата:
Originally posted by gray_k
Всё очень просто. Например у меня есть компонент, который в данный момент имеет фокус ввода. Как мне узнать его порядковый номер в TabOrder и узнать имя компонента, оторый в TabOrder предыдущий.
Всё очень просто. Например у меня есть компонент, который в данный момент имеет фокус ввода. Как мне узнать его порядковый номер в TabOrder и узнать имя компонента, оторый в TabOrder предыдущий.
Тут малой кровью отделаться не удастся вроде.
У TCustomForm есть свойство ActiveControl
Specifies the control that has focus on the form.
__property Controls::TWinControl* ActiveControl = {read=FActiveControl, write
=SetActiveControl, stored=IsForm};
У TWinControl есть TabOrder так ты его узнаешь.
А дальше перебором всех Controls у данной формы.
Цитата:
Originally posted by moonmike
Тут малой кровью отделаться не удастся вроде.
У TCustomForm есть свойство ActiveControl
Specifies the control that has focus on the form.
__property Controls::TWinControl* ActiveControl = {read=FActiveControl, write
=SetActiveControl, stored=IsForm};
У TWinControl есть TabOrder так ты его узнаешь.
А дальше перебором всех Controls у данной формы.
Тут малой кровью отделаться не удастся вроде.
У TCustomForm есть свойство ActiveControl
Specifies the control that has focus on the form.
__property Controls::TWinControl* ActiveControl = {read=FActiveControl, write
=SetActiveControl, stored=IsForm};
У TWinControl есть TabOrder так ты его узнаешь.
А дальше перебором всех Controls у данной формы.
Не надо перебором всех. У этого же TWinControl есть метод FindNextControl, который позволяет найти предыдущий в порядке табуляции Control(GoForward = false, CheckTabStop = true)