اتجاه الكتابة من اليمين الى اليسار بالنسبة للعربية

[addidou23]

السلام عليكم و رحمة الله و بركاته

وجدت الحل بالنسبة لتحويل اتجاه الكتابة بالنسبة من اليمين الى اليسار
اولا نكتب في evenemnt الحدث OnKeyPress

كود :

var OldSysLocal:TSysLocale; begin OldSysLocal:=SysLocale;// pour pouvoir le remettre SysLocale.MiddleEast := True; Edit1.BiDiMode := bdRightToLeft; SysLocale := OldSysLocal; end;

المشكل ان المؤشر يتحول فقط عند بداية الكتابة و ليس قبل
تقبلوا تحياتنا و من لديه فكرة افضل المرجو افادة الجميع

[hanipino]

و عليكم السلام و رحمة الله

جرب هاذا الكود فى الحدث OnCreate للفورم مثلا

PHP كود :

var
  Style: LongInt;
begin
  Style := GetWindowLong(Edit1.Handle, GWL_STYLE);
  SetWindowLong(Edit1.Handle, GWL_STYLE, Style or ES_RIGHT);
  Edit1.Invalidate;
end;