تغییر زبان به صورت اتوماتیک

[smakhavan]

سلام
چه جوری هنگام تایپ در دو edit به طور اتوماتیک بین فارسی و انگلیسی سوییچ کنیم. مثلا یکی باید نامی را به فارسی تایپ کنیم و در دیگری نام به انگلیسی.
از کد زیر برای این کار استفاده کردم اما جواب نمیده.


procedure TForm1.Edit1Enter(Sender: TObject);
begin
Application.BiDiKeyboard:='00000429';
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
Application.BiDiKeyboard:='00000409';
end;

[hossein taghi zadeh]

با سلام


چه جوری هنگام تایپ در دو edit به طور اتوماتیک بین فارسی و انگلیسی سوییچ کنیم
در رویداد OnEnter هر دو ادیت خود بنویسید:

ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE);