فارسی کردن کیبرد برای تایپ فارسی در برنامه

[کامروا]

سلام دوستان
من واسه اینکه بتونم در برنامه فارسی تایپ کنم از این دستور استفاده میکنم اما سرعت برنامه رو خیلی کاهش میده! نمیدونم چرا!!! لطفا راهنمایی کنید. کد بهتری نیست جایگزین کنم؟

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


با تشکر

[nsco_nsco]

سلام بهترین کد همیه فکر کنم مال ویندوزت باشه یا درست فونت نصب نشده یعنی کیبرد فارسی 90 درصد مال ویندوزه تو یه سیستم دیگه چک کن :قلب:

[کامروا]

ممنون دوست عزیز
توی ی سیستم دیگم تست کردم اما بازم همینجوریه:متفکر: چرا!
سرعت برنامه رو تا40-50% کاهش میده!!!
لطفا راهنمایی کنید

[shedayat]

سلام.
دوست عزیز این کد رو امتحان کن حتما جواب می گیری :

LoadKeyboardLayout('00000429', KLF_ACTIVATE);
موفق باشی.

[کامروا]

خیلی سپاسگذارم آقای shedayat (http://barnamenevis.org/member.php?79940-shedayat)
خیلی عالی شد.
مرسی