how to use LoadKeyboardLayout ?

[majid.ebru]

Hi

how can i use LoadKeyboardLayout??

LoadKeyboardLayout('00000429', KLF_ACTIVATE);

[trev]

See https://forum.lazarus.freepascal.org/index.php?topic=42694.15

[majid.ebru]

sorry
i don't want to check keyboard state

i want when i enter to editbox the language of it , chenged??

i want to change keyboard language to farsi to english to another language.

thank you

[majid.ebru]

can one help ot guide me ??

i want when i enter to edit box , the language of edit box chenged like that i press shift + alt (in windows)??

best regards

[ASerge]

how can i use LoadKeyboardLayout??
LoadKeyboardLayout('00000429', KLF_ACTIVATE);

It works fine for me:

Code: Pascal  [Select][+][-]

1. uses Windows;
2.  
3. procedure TForm1.Edit1Enter(Sender: TObject);
4. begin
5.   LoadKeyboardLayout('00000429', KLF_ACTIVATE);
6. end;

Windows 7 still.