Tabstop和Rectangle

Question

我有TTabControl和一些控件（Delphi XE7 Firemonkey应用程序）。 一切正常，也是tabstop。现在我需要使用CheckBox为一个面板着色。 将TRectangle添加到此面板并将CheckBox的父级设置为此TRectangle。 接口看起来很好，但现在这个CheckBox不在taborder列表中，也没有收到tabstop命令。

如何解决此问题？

如何重现：添加到表格TRectangle，添加3个CheckBox，使用Structure面板将一个CheckBox3移动到TRectangle（将TRectangle设置为CheckBox3的父级）。运行此应用程序并使用Tab键尝试导航。您无法导航到CheckBox3！

Answer 1

您必须手动将TabOrder设置为某个（合理的）值，因为TShape没有将其发布，因此设置为-1（其执行相同的操作）如TabStop = False）或TCheckBox放置TRectangle，只需将其放在TRectangle前面，以便覆盖TRectangle TRectangle

另一个选择是根本不使用TPanel并更改Edit Custom Style...的样式：右键单击设计器中的面板，然后选择{{1} }。然后选择新创建的样式（类似panel1style: TRectangle）并根据需要更改Fill属性。点击Apply and Close即可完成。通过使用样式，您可以为任何可能看起来很简单的控件创建复杂的外观。有关详细信息，请参阅http://docwiki.embarcadero.com/RADStudio/XE7/en/Customizing_FireMonkey_Applications_with_Styles及相关主题。