(Resolvido) Forçar/simular tecla TAB ou ENTER num TWebBrowser

[LuloNet]

Olá pessoal.

Alguém sabe como posso Simular ou Forçar o uso da tecla TAB ou ENTER dentro do

componente TWebBrowser / TEmbeddedWB.

Desde já obrigado pela ajuda.

[Jhonas]

Simular o pressionamento de uma tecla

Inclua na seção uses: Windows

A API keybd_event do Windows serve para fazer isto. No exemplo

abaixo estamos simulando o pressionamento da tecla F2:

keybd_event(VK_F2, 0, 0, 0);

Para testar faça o exemplo a seguir:

- Mude a propriedade KeyPreview do form para true.

- Escreva no evento OnKeyDown do form como abaixo:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_F2 then

ShowMessage('F2 pressionada');

end;

- Coloque um botão e escreva no OnClick (do botão) como abaixo:

procedure TForm1.Button1Click(Sender: TObject);

begin

keybd_event(VK_F2, 0, 0, 0);

end;

Observações

Consulte as constantes para os códigos das teclas (ex: VK_RETURN, VK_DOWN, etc).

Outras informações:

http://www.activedelphi.com.br/forum/viewt...5c23a276e138e4e

http://info.abril.com.br/forum-antigo/forum.php?tópico=66598

http://www.planetadelphi.com.br/dica/584/s...nacao-de-teclas

http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=606

http://www.babooforum.com.br/forum/index.p...howtopic=621989

http://www.cheatsbrasil.com/local/delphi/1...o-do-mouse.html

abraço

[LuloNet]

Obrigado pela dica Amigo Jhonas, já vou colocar em prática.

Abraço.

[ricado ferreira]

Jhonas acrescentado a dúvida do amigo .

se eu deseja-se por exemplo q a tecla fosse simulada na execução de outro programa.

por exemplo:

Criar um programa que pressionasse "TAB"(no formulário de outro programa para preenchimento de campos).

isso é possivel???

[Jhonas]

por exemplo:

Criar um programa que pressionasse "TAB"(no formulário de outro programa para preenchimento de campos).

isso é possivel???

É possivel ... acho que tem alguma coisa a respeito em um dos posts .... faça uma pesquisa para achar

http://scriptbrasil.com.br/forum/index.php...ighlite=simular

abraço

[LuloNet]

Amigo Jhonas.

Agradeço pelas dicas e ajuda, abraço.

[Tópico RESOLVIDO]

[Otacílio Ricardo]

Olá pessoal.

Alguém sabe como posso Simular ou Forçar o uso da tecla TAB ou ENTER dentro do

componente TWebBrowser / TEmbeddedWB.

Desde já obrigado pela ajuda.

Entre neste site http://beensoft.blogspot.com/2007/10/fooli...bbrowser-4.html.

Espero ter ajudado.