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.
Versão Completa: (Resolvido) Forçar/simular tecla TAB ou ENTER num TWebBrowser
QUOTE
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).
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
Obrigado pela dica Amigo Jhonas, já vou colocar em prática.
Abraço.
Abraço.
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???
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???
QUOTE
por exemplo:
Criar um programa que pressionasse "TAB"(no formulário de outro programa para preenchimento de campos).
isso é possivel???
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
Amigo Jhonas.
Agradeço pelas dicas e ajuda, abraço.
[Tópico RESOLVIDO]
Agradeço pelas dicas e ajuda, abraço.
[Tópico RESOLVIDO]
QUOTE(LuloNet @ 05/03/2010 - 16:34) 
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.
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.
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.