كيف تحويل الصفحات ال PageControl الى جهة اليمين

[theking_ma]

كيف تحويل الصفحات ال PageControl الى جهة اليمين

وشكرا

[AL-MOB4RM3G]

اولا السلام عليكم اخي,

ضع هذا الكود في اليونيت,,

PHP كود :

procedure SetWinControlBiDi(Control: TWinControl); // Make Control object Right
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; 


ومن ثم ضع هذا الكود في الحدث اون كريت للفورم,,

PHP كود :

SetWinControlBiDi(PageControl1); 


نعم, هذا والله اعلم,

اشكر الآخ o15s19 على هذه المعلومة,, فهو من علمني ايّاها,, :bye1:

[medreg]

ملاحظة في الموضوع
لماذا تختفي كل المكونات التي توضع على صفحات PageControl بعد تحويلها الى اليمين
لقد جربت الكود وهي فعلاً يتم تحولها الى اليمين
لكن الغريب في الأمر والذي لم افهم السبب
لماذا تختفي المكونات التي تم وضعها على الصفحات بعد ان تظهر المرة الأولى
لا بد من توضيح المشكلة
هل المشكل من عندي أم من الكود
وجزاكم الله عنا كل خير

[AL-MOB4RM3G]

كيف تختفي اخي الكريم؟

يبدوا الخلل من عندك, و الله اعلم

لآنها تعمل عندي بنجآح

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
لقد وضعت الكود على هذا المرفق
ونفذته وعندما نفذته ظهرت لي المكونات ثم اختفت بعد ان انتقلت الى الصفحة الثانية وعدت للصفحخة الأولى اختفت كما ان لي صديق قد تعرض لنفس المشكل
اليك المرفق ربما لم اضع الكود في المكان المناسب ام الكود ينقصه شئء لا اعرفه

[AL-MOB4RM3G]

لا ادري ما المشكلة بالتحديد,,

لكن جربت على الدلفي 7 و الدلفي 2010,,

كما ذكرت انت اخي الكريم, تختفي المكونات في الدلفي 7,,

لكن مع الدلفي 2010 يعمل الكود بنجاح,,

[medreg]

انني ارى ان الموضوع يحتاج الى متابعة لحل هذه المشكلة من طرف صاحب الكود الأصليي للتعديل على ان يتلاءم مع كل الإصدارات للدلفي وخاصة الإصدار 5 و7
ولكم منا جزيل الشكر والإحترام مع تمنيتنا لكم بالتوفيق

[theking_ma]

فعلا المكونات تختفي ولا ادري ما السبب

انا اعمل على دلفي 7

[AL-MOB4RM3G]

ان لم اكن مخطأً,, فهناك مكونات ال Raize components

بها مكون PageControl وفيه الخآصية من اليمين الى اليسآر والله اعلم,,

لست متأكد من هذا,, لكن ربما احد الإخوة يتذكر ذلك الخآصيّة, ؟؟

[o15s19]

ضع هذا الكود تحت قسم ال يوزز

كود :

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

بالاإضافة إلى كود الأخ AL-MOB4RM3G

و إن شاء الله ينفع معك