منتديات الأجاويد



 
الرئيسيةالبوابةالمنشوراتس .و .جبحـثالتسجيلدخول
آخر عضو مسجل هو meziane lamri فمرحبا به أهلا وسهلا

شاطر | 
 

 اتجاه النص حسب نسق لوحة المفاتيح

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
HaMiDo
عضو نشيط
عضو نشيط
avatar

عدد المساهمات : 40

مُساهمةموضوع: اتجاه النص حسب نسق لوحة المفاتيح   2016-01-22, 11:16 am
هذه طريقة تحويل اتجاه النص حسب تنسيق لوحة المفاتيح

الكود:
function winKeyboard: string;
var
WinLanguage: array [0..255] of char;
i:Integer;
begin
i:=GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow ,nil)) And $FFFF;
VerLanguageName(i, WinLanguage, 255);
Result := StrPas(WinLanguage);
end; 


في الحدث KeyPress

الكود:
procedure TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if AnsiPos('Arabe',winKeyboard)<>0 then
Edit1.BiDiMode:=bdRightToLeft
else
Edit1.BiDiMode:=bdLeftToRight ;
end; 


الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
اتجاه النص حسب نسق لوحة المفاتيح
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1



صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات الأجاويد :: الكميوتر :: برمجة-
انتقل الى: