Ekran klavyesi: Türkçe karakter sorunu!

[mcelebi]

Merhaba,
Ekran klavyesi yapmak istiyorum ama Türkçe Karakterleri kullanırken (Ç, Ü, Ş, Ğ ve Ö) harflerinde sorun yaşıyorum.
Yadım ederseniz memnun olurum...
Saygılar,

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
KeyState : TKeyboardState;
begin
LoadKeyboardLayout('0000041f', KLF_ACTIVATE); // Türkçe
Edit1.SetFocus;
keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), 0, 0); // Harf
GetKeyboardState(KeyState);
if (KeyState[VK_CAPITAL] = 1) then
KeyState[VK_CAPITAL] := 0
else
KeyState[VK_CAPITAL] := 0;
SetKeyboardState(KeyState);
end;

[thelvaci]

Merhaba; aşağıdaki gibi bir kullanım işinizi görecektir;

Kod: Tümünü seç

var
  Key : Integer;
  Extra : DWord;
begin
  Key := VkKeyScan('Ö');
  Extra := 0;

  keybd_event(Key, MapVirtualKey(Key, 0), Extra, 0);
  keybd_event(Key, MapVirtualKey(Key, 0), Extra or KEYEVENTF_KEYUP, 0);
end;

[mcelebi]

Teşekkürler.

[savasgti]

nasıl yaptığınızı daha detaylı yazarmısınız.

[mcelebi]

nasıl yaptığınızı daha detaylı yazarmısınız.

procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
Key : Integer;
Extra : DWord;
begin
LoadKeyboardLayout('0000041f', KLF_ACTIVATE);
SearchEdit.SetFocus;
Key := VkKeyScan('A');
Extra := 0;
keybd_event(Key, MapVirtualKey(Key, 0), Extra, 0);
keybd_event(Key, MapVirtualKey(Key, 0), Extra or KEYEVENTF_KEYUP, 0);
end;