برنامج عربي ، لكن من اليسار إلى اليمين!!!

جاوبت قبلا لكن لا عليك اخي

procedure TForm1.Button1Click(Sender: TObject); 

Var 

  OldStyle, NewStyle : Longint; 

begin 

  OldStyle := GetWindowLong(StringGrid1.Handle,GWL_EXStyle); 

  NewStyle := OldStyle or (WS_EX_LAYOUTRTL); 

  SetWindowLong(edit1.Handle,GWL_EXStyle,NewStyle); 

  StringGrid1.Repaint; 

end;

على فرض ان المثال مطبق على Tedit

تقبل تحياتي

اخوك رضا

اخي reda

لم يستطع الدلفي التعرف على القيمة WS_EX_LAYOUTRTL ؟!!

مع العلم اني استخدم دلفي 5.

هذا الميزة في الدلفي 6 ومافوق

وقد حصلت عليه

من موقع للاخ خالد داوود

www.kdtools.net

ويمكن استعماله لتعريب العناصر التي لم تعرب بعد

والمثال السابق مطبق على TstringGRid