Как установить фокус на документе в TWebBrowser ?

Previous  Top  Next

    
 

 

 

WebBrowser1.SetFocus ставит фокус на компонент TWebBrowser, а это не всегда то, что нужно. Если нужно поставить фокус на документ в TWebBrowser'е (чтобы, например, кнопки вверх/вниз скроллировали документ, а не ставили фокус на другой компонент), то можно использовать этот код:

Code:

uses ActiveX;

 

with WebBrowser1 do

if Document <> nil then

  with Application as IOleobject do

    DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,

      GetClientRect);

 

 

 

©Drkb::03475

Автор: p0s0l

Взято с Vingrad.ru http://forum.vingrad.ru