Enviar tecla para um componente especifico

Question

Boa tarde,gostaria de saber como fazer pra fazer uma rolagem automatica de um TWebBrowser. Estou usando um TTimer, e quero que ele v� descendo o texto periodicamente. Nao achei nenhuma fun��o do compo...

Marcosrocha · Answer

Amigo eu j� fiz algo semelhante...O c�digo � um tanto complicado porque eu uso FindWindow para fazer isso...Mas voc� consegue encontrar na net artigos e dicas sobre �como pegar texto do Bloco de Notas�... se n�o conseguir encontrar me avise que eu procuro a rotina no meu arquivo morto...  :D...

Kohl · Answer

Pesquisando na internet achei esse codigo pra enviar uma tecla para outra aplica��o

var 
  myHandle : THandle; 
begin 
myHandle:= FindWindow( �MyAppClass�, �MyAppCaption�); 
if myHandle <> 0 then 
 PostMessage( myHandle, WM_KeyDown, VK_DOWN, 0 ); 
end;

Mas o problema eh que n�o eh outra aplica��o, eh para o componente que esta no meu form. Eu vi que a fun��o FindWindow retorna HWND, entao tentei fazer essa �gambiarra�:

PostMessage( WebBrowser1.HWND, WM_KeyDown, VK_DOWN, 0 );

Mas nao funcionou.
Se tiver como postar o codigo que voc� tem, ou se alguem mais tem uma solu��o agrade�o muito.

Marcosrocha · Answer

kohl a l�gica � a mesma amigo, o problema � percorrer os Handles at� achar o que voc� quer, na net voc� acha uma fun��o com While que percorre todos os componentes de uma Janela. Mas s� a t�tulo de informa��o, seu c�digo ficaria algo do tipo:

var 
  myHandle : THandle; 
begin 
  myHandle:= FindWindow(�TApplication�, �MeuPrograma�); 
  if myHandle <> 0 then
  begin
    myHandle := FindWindow(�TForm�, �Form Navegador�);
    if myHandle <> 0 then
    begin
      myHandle := FindWindow(�TWebBrowser�, �WebBrowser1�);
      if myHandle <> 0 then
        PostMessage( myHandle, WM_KeyDown, VK_DOWN, 0 ); 
    end;
  end;
end;

Kohl · Answer

Bom, andei procurando na internet, fiz uns testes e n�o consegui.

Me parece que n�o tem como, porque o WebBrowser tem um propriedade .HWND que retorna o seu Handle, mas nao funciona com o keybd_event. J� que ele tem um metodo, ent�o eu tenho como conseguir o seu HWND. O FindWindow nao retornaria esse mesmo valor?

De qualquer forma nao consegui fazer funcionar ele.

Se tiver mais algo pra ajudar agrade�o muito, no mais muito obrigado pela ajuda. Vou ver ainda se consigo, mas sem muitas esperan�as.

Emerson Nascimento · Answer

tente assim:SendMessage(WebBrowser1.Handle, WM_VSCROLL, 1, 0); // pra descerSendMessage(WebBrowser1.Handle, WM_VSCROLL, 0, 0); // pra subir...

Kohl · Answer

emerson.en, infelizmente talbem nao funcionou. ele simplesmente nao sai do lugar. esse componente eh muito limitado, muito cheio de restri��o.

sera que existe algum componente bom e gratuito para visualizacao de paginas html com css?

obrigado

Marcosrocha · Answer

kohl o Handle � um endere�o de memoria de um componente... O problema deve ser o m�todo que voc� t� usando... Tenta usar o �SendMessage�....

Kohl · Answer

Bom, seguindo a minha primeira tentativa, resolvi procurar agora um jeito de focar o WebBrowser, ja q o keybd_event funcionava se eu clicasse na tela do WebBrowser.

Encontrei na internet esse codigo

uses ActiveX;
--------------------
with WebBrowser1 do
  if Document <> nil then
    with Application as IOleobject do
      DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
        GetClientRect);

Com ele, consigo ajustar o foco do documento html em si, nao do componente e enfim funcionou.

Muito obrigado a todos que ajudaram
Sem mais

F�rum Enviar tecla para um componente especifico #344858