+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم الكتابة من منتصف مربع النص (/showthread.php?tid=11963)
كيف يتم الكتابة من منتصف مربع النص - ELARAPY - 04-06-2022
السلام عليكم ورحمة الله وبركاته
كيف أجعل الكتابة في خاصية Text, Caption من المنتصف حيث لا يوجد خيار في BiDiMode ؟
RE: كيف يتم الكتابة من منتصف مربع النص - Agmcz - 05-06-2022
وعليكم السلام
في دلفي 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
بالتوفيق.
RE: كيف يتم الكتابة من منتصف مربع النص - ELARAPY - 06-06-2022
(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
بالتوفيق.
ربنا يحفظك من كل سوء يا اخي الحبيب ويقسم لك من كل خير.