Fórum Teclado Virtual #363665

Var teclas : TkeyBoardState;

Begin

GetKeyBoardState(Teclas);

 If (Teclas[VK_SHIFT] = 1) Then // Se o estado da tecla Shift seja True

              Begin

                 KeyBd_Event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); // Segura Shift

                 KeyBd_Event(VkKeyScan (Letra), 0, KEYEVENTF_EXTENDEDKEY, 0); //Esta linha e a subsequente seguram e soltam a letra desejada

                 KeyBd_Event(VkKeyScan (Letra), 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

                 KeyBd_Event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); //Solta Shift

              End

           Else // Caso o estado da tecla Shift seja falso

              Begin

                 KeyBd_Event(VkKeyScan (Letra), 0, KEYEVENTF_EXTENDEDKEY, 0);

                 KeyBd_Event(VkKeyScan (Letra), 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

              End;

        End;
End;

Procedure TFrmTecladoReduzido.BtAClick(Sender: TObject);

Begin

Application.HandleMessage;

MyHandle := FindWindow(´TFrmTecladoReduzido´, Nil);

If (GetActiveWindow = MyHandle) Then

HandleMaeFocus := GetNextWindow(MyHandle, GW_HWNDNEXT);

Sendmessage (HandleFilhaFocus, WM_SETFOCUS, 0, 0);

SetActiveWindow (HandleFilhaFocus);

keybd_event(37, 0, 0, 0);//Caso esteja digitando no browser

keybd_event(65, 0, 0, 0);//Código ascii da letra A

End; 

//============================================================================//
procedure TForm2.processLetter(letra: char);
//============================================================================//
var
  layoutKeyboard : HKL;
  Key            : integer;
begin
   
  //Interrompe a aplicacao para que o windows possa processar as mensagens.
  Application.HandleMessage;

  //Handle da janela do teclado
  MyHandle := FindWindow(´TForm2´,nil);

  if GetActiveWindow = MyHandle then
    HandleMaeFocus := GetNextWindow(MyHandle,GW_HWNDNEXT);


  Sendmessage(HandleFilhaFocus,WM_SETFOCUS,0,0);
  SetActiveWindow(HandleFilhaFocus);
  
  layoutKeyboard := GetKeyboardLayout(0);

  Key := VkKeyScanEx(letra,layoutKeyboard);
  
  //Caso seja um edit prepara o cursor
  keybd_event(39, 0, 0, 0);
  keybd_event(39, 0, KEYEVENTF_KEYUP, 0);
  
  keybd_event(LoByte(Key), 0, 0, 0);
  keybd_event(LoByte(Key), 0, KEYEVENTF_KEYUP, 0);
   

end;

{Faz o simbolo do dolar}
//============================================================================//
procedure TForm2.SpeedButton20Click(Sender: TObject);
//============================================================================//
begin

  //Trata o foco das janelas.
  trataJanelas;
  
  //Caso seja um edit prepara o cursor
  keybd_event(39, 0, 0, 0);
  keybd_event(39, 0, KEYEVENTF_KEYUP, 0);
  
  //Segura o Shift
  keybd_event(VK_SHIFT, 0, 0, 0);
  
  //Processa o valor da tecla baseado no scanCode.
  keybd_event(52, 0, 0, 0);
  keybd_event(52, 0, KEYEVENTF_KEYUP, 0);

  //Solta o shift
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);

end;

[quote]


Com esse método funcionou legal, vc precisa procurar o scanCode do ç nao sei se há.  

No meu caso para eu printar o " ç " na tela faço do seguinte modo: 


[/quote]

{Evia a letra informada para aplicação em questão}
//============================================================================//
procedure TForm2.processLetter(letra: char);
//============================================================================//
var
  layoutKeyboard : HKL;
  Key            : integer;
begin
  
  //Trata o foco das janelas.
  trataJanelas;


  ///*****FAZER O TRATAAMENTO DO SHIT AQUI******///
 // if shiftState = true then  


  layoutKeyboard := GetKeyboardLayout(0);

  Key := VkKeyScanEx(letra,layoutKeyboard);

  //Caso seja um edit prepara o cursor
  keybd_event(39, 0, 0, 0);
  keybd_event(39, 0, KEYEVENTF_KEYUP, 0);
  
  keybd_event(LoByte(Key), 0, 0, 0);
  keybd_event(LoByte(Key), 0, KEYEVENTF_KEYUP, 0);


  //*** SOLTAR O SHIFT AQUI ***//

  
end;