Enviar teclas

Question

Ol� pessoal.Faz um bom tempo que n�o posto aqui no forum.L� vai a minha duvida: preciso saber se existe um comando que dispare teclas(letras) pro meu programa. Ex.:[code:1:00fba530ef]edit.setfocus;env...

Flaviosan · Answer

Ai gente, resolvi o problema, � s� usar a fun��o keybd_event(). Ex.:

edit.setfocus;
keybd_event(VkKeyScan(�1�,0,0,0));
keybd_event(VkKeyScan(�8�,0,0,0));

Mais isso me arrumou mais um problema, como converto string para char, pois fa�o um copy() em uma string pra me retornar um determido valor, mas n�o sei como converter essa string retornada em char pra usar com a keybd_event().
Agrade�o antecipadamente.

Adriano Santos · Answer

[code:1:b22dd24a6d]  Chr(SuaString);[/code:1:b22dd24a6d]...

Flaviosan · Answer

Ol� adrianoEssa fun��o ta dando erro �incompatible types�.Eu fa�o uma variavel string receber o resultado de um copy que deve me retornar somente uma letra. Quando passo essa variavel pra fun��o chr() ela me retorna um erro.Vc sabe o que esta acontecendo?...

Adriano Santos · Answer

Como est� a sua string?Passa pra gente o trecho de c�digo que t� usando....

Flaviosan · Answer

L� vai:[code:1:ec5e699da2]var   sCodArea1, sCodArea2 : String;   chCodArea1, chCodArea1 : Char;begin   sCodArea1 := Copy(�(18)0000-0000�, 2, 1);   sCodArea2 := Copy(�(18)0000-0000�, 3, 1);      chCodArea1 := chr(sCodArea1); //o erro acontece aqui   ...   ...end;[/code:1:ec5e699da2]...

Massuda · Answer

sCodArea1 � uma string de tamanho 1. Como toda string � uma sequencia/array de char, voc� pode fazer assim...

chCodArea1 := sCodArea1[1];

ou seja, n�o precisa do Chr para converter para Char. Mas como escrevi a� em cima que toda string � uma sequencia/array de char, nem precisa do Copy...

var
  s: string;
...
  s := �(18)0000-0000�;

  chCodArea1 := s[2];
  chCodArea2 := s[3];
...

Eu ia responder com bem menos detalhes, mas j� que o [b:d69975b951]Massuda[/b:d69975b951] tah mais r�pido que eu...rs....

procedure TForm1.Button2Click(Sender: TObject);
var
   sCodArea1 : String;
   chCodArea2 : Char;
begin

   chCodArea2 := sCodArea1[1];

   Edit1.setfocus;
   keybd_event(VkKeyScan(chCodArea2),0,0,0);
end;

Adriano Santos · Answer

[quote:d69975b951=�Massuda�]sCodArea1 � uma string de tamanho 1. Como toda string � uma sequencia/array de char, voc� pode fazer assim...[code:1:d69975b951]chCodArea1 := sCodArea1&#91;1&93;;[/code:1:d69975b951]ou seja, n�o precisa do Chr para converter para Char. Mas como escrevi a� em cima que toda string � uma sequencia/array de char, nem precisa do Copy...[code:1:d69975b951]var  s: string;...  s := �(18)0000-0000�;  chCodArea1 := s&91;2&93;;  chCodArea2 := s&91;3&93;;...[/code:1:d69975b951][/quote:d69975b951]Eu ia responder com bem menos detalhes, mas j� que o [b:d69975b951]Massuda[/b:d69975b951] tah mais r�pido que eu...rs....[code:1:d69975b951]procedure TForm1.Button2Click(Sender: TObject);var   sCodArea1 : String;   chCodArea2 : Char;begin   chCodArea2 := sCodArea1&91;1&93;;   Edit1.setfocus;   keybd_event(VkKeyScan(chCodArea2),0,0,0);end;[/code:1:d69975b951]...

Flaviosan · Answer

Obrigado Adriano e Massuda, mataram a pau....

Dopi · Answer

Ola Flavio,Porque vc n�o usa a unit SndKey32.pas (que vem no CD do Delphi)Veja esse t�pico://forum.clubedelphi.net/viewtopic.php?t=66119&highlight=sndkey32...

Flaviosan · Answer

Beleza Daniel, vou dar uma olhada nessa unit, obrigado....

F�rum Enviar teclas #293631