+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : اتجاه النص حسب نسق لوحة المفاتيح (/showthread.php?tid=6596)
اتجاه النص حسب نسق لوحة المفاتيح - onexite - 28-11-2014
السلام عايكم
هذه طريقة تحويل اتجاه النص حسب تنسيق لوحة المفاتيح
PHP كود :
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
PHP كود :
procedure TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if AnsiPos('Arabe',winKeyboard)<>0 then
Edit1.BiDiMode:=bdRightToLeft
else
Edit1.BiDiMode:=bdLeftToRight ;
end;
اتجاه النص حسب نسق لوحة المفاتيح - didrosoft - 30-11-2014
درس جميل ومهم في نفس الوقت من شخص فذ ومبدع
لا تحرمنا من دروسك الرائعة