delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف يتم الكتابة من منتصف مربع النص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته 

كيف أجعل الكتابة في خاصية Text, Caption  من المنتصف حيث لا يوجد خيار في BiDiMode ؟
وعليكم السلام

في دلفي 7 إستخدم التالي:
كود :
procedure TForm1.Button1Click(Sender: TObject); begin   SetWindowlong(Edit1.Handle, GWL_STYLE, GetWindowlong(Edit1.Handle, GWL_STYLE) or ES_CENTER);   Edit1.Invalidate; end;

في النسخ الحديثة إبحث عن Alignment وحدد taCenter

بالتوفيق.
(05-06-2022, 01:40 PM)Agmcz كتب : [ -> ]وعليكم السلام

في دلفي 7 إستخدم التالي:
كود :
procedure TForm1.Button1Click(Sender: TObject); begin   SetWindowlong(Edit1.Handle, GWL_STYLE, GetWindowlong(Edit1.Handle, GWL_STYLE) or ES_CENTER);   Edit1.Invalidate; end;

في النسخ الحديثة إبحث عن Alignment وحدد taCenter

بالتوفيق.


ربنا يحفظك من كل سوء يا اخي الحبيب ويقسم لك من كل خير.