كيف يتم الكتابة من منتصف مربع النص

[ELARAPY]

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

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

[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

بالتوفيق.

[ELARAPY]

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

في دلفي 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

بالتوفيق.

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