فارسي كردن صفحه كليد وبالعكس

[admin]

مرسی آقای احمدی.
فقط بهتره برای این کار یک combobox روی صفحه بزارید و آیتمهای (فارسی و انگلیسی و عربی ) رو داخل اون قرار بدید و بعدش کد زیر رو در داخل رویداد *onclick یک باتن بزارید.
کد:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if langcmb.Text="فارسي" then
 begin
 
 Application.BiDiMode:=bdRightToLeft ;
Application.BiDiKeyboard:="00000429"  ;
Edit1.BiDiMode:=bdRightToLeft;
edit1.SetFocus;
end;

 if langcmb.Text="انگليسي" then
 begin
 Application.BiDiMode:=bdLeftToRight ;
Application.BiDiKeyboard:="00000329"  ;
Edit1.BiDiMode:=bdLeftToRight;
edit1.SetFocus;
end;

 if langcmb.Text="عربي" then
 begin
 Application.BiDiMode:=bdRightToLeft ;
Application.BiDiKeyboard:="00000401"  ;
Edit1.BiDiMode:=bdRightToLeft;
edit1.SetFocus;
end;


end;