مشکل با righttoleft کامپوننت pagecontrol

[MNosouhi]

با استفاده از كد زير يك pagecontrol را rightoleft كردم .


Const
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring

{$R *.dfm}

procedure SetWinControlBiDi(Control: TWinControl);
var
ExStyle: Longint;
begin
ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);
SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT
or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );
end;
ابتدا روي tabseet1 و سپس روي tabsheet2 كليك مي كنم . حال اگر روي tabseet1 كليك كنم چيزي نمايش داده نميشود . يعني tabseet1 خالي است .
چطور اين مشكل را بر طرف كنم ؟

[hadisalahi2]

این کنترل در حالت راست به چپ دارای مشکل است
من پیشنهاد میکنم از کامپوننتهای Raise استفاده کنید که قابلیت راست به چپ رو خیلی خوب پشتیبانی میکند.

[mehdi1359a]

بنده هم پیشنهاد میکنم از کامپوننتهای raise استفاده کنید که با تغییر خاصیت tabsequence به ts reverse و تغییر tabstyle به tsback slant راحت به صورت راست به چپ میشه