معرفة اللغة المستعملة في لوحة المفاتيح

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
استخدم الأحداث OnEnter & OnExit بمثل:

PHP كود :

procedure TForm1.DBEdit2Enter(Sender: TObject);
begin
  LoadKeyboardLayout('00000401',KLF_ACTIVATE); //Arabic
end;

procedure TForm1.DBEdit2Exit(Sender: TObject);
begin
  LoadKeyboardLayout('0000040C',KLF_ACTIVATE); //French
end; 


بالتوفيق.