我在希伯来语环境中编程,所以我希望 TTabControl 顶部的选项卡从右到左显示。BiDiMode 属性不会影响选项卡,但会影响控件中包含的文本。
我试过下面的代码
SetWindowLong (tc.Handle, GWL_EXSTYLE,
GetWindowLong(tc.Handle, GWL_EXSTYLE) or
WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT);
它可以正确显示选项卡,但会阻止 ttabcontrol 中的控件出现,因此它的使用受到一定的限制。
有任何想法吗?顺便说一句,我正在使用 Delphi 7。
TIA,诺姆