Tabstop и TRectangle

Question

У меня есть TTabControl с некоторыми элементами управления (приложение Delphi XE7 Firemonkey). Все работает отлично, tabstop тоже. Теперь мне нужно раскрасить одну панель с помощью CheckBox. Добавьте TRectangle на эту панель и установите родительский элемент CheckBox в этот TRectangle. Интерфейс выглядит отлично, но теперь этот CheckBox отсутствует в списке таможни и не получен команде tabstop.

Как исправить эту проблему?

Как воспроизвести: добавьте в форму TRectangle, добавьте 3 CheckBox, переместите один CheckBox3 в TRectangle с помощью панели Structure (установите TRectangle как родительский элемент для CheckBox3). Запустите это приложение и попробуйте навигацию с помощью клавиши Tab. Вы не можете перейти к CheckBox3!

Answer 1

Вы должны либо вручную установить TabOrder в определенный (разумный) стоимости, поскольку TShape не было опубликовано и, таким образом, устанавливается на -1 (который делает то же самое, как TabStop = False) или не ставит TCheckBox в TRectangle , просто поместите его перед TRectangle, чтобы он нарисовал над TRectangle.

Другой вариант не использовать TRectangle на всех и изменить стиль из TPanel: Щелкните правой кнопкой мыши на панели в дизайнере и выберите Edit Custom Style.... Затем выберите стиль, созданный для вас (что-то вроде panel1style: TRectangle) и измените свойство Fill, но вам нужно. Нажмите Apply and Close, и все готово. С помощью стилей вы можете создавать сложные взгляды на любой элемент управления, который может выглядеть простым вначале. Для получения дополнительной информации см. http://docwiki.embarcadero.com/RADStudio/XE7/en/Customizing_FireMonkey_Applications_with_Styles и смежные темы.