Delphi World - Передать фокус TWebBrowser
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Передать фокус TWebBrowser

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Jeder der mal TWebBrowser.SetFocus ausprobiert hat, 
  musste feststellen, dass der Fokus nicht auf das Webbrowser 
  Dokument (eine Webseite) setzt, sondern auf das Webbrowser Control, 
  was uns nicht gerade viel bringt. 
  Hier werden zwei Moglichkeiten beschrieben, wie man den Fokus auf 
  die "Webseite" (d.h Dokument des Webbrowser) setzen kann. 
{ 

{ 
  Anyone that has worked with TWebBrowser knows that the 
  TWebBrowser.SetFocus procedure doesn't set focus on the "web page", 
  but rather on the control itself, which doesn't do us a whole lot of good. 
  Here are two possibilities to set the focus on the "web page" (i.e., document): 
}


 uses
   ActiveX;

 begin
   WebBrowser1.Navigate('irgendeinedatei.html');
   with WebBrowser1 do
   if Document <> nil then
     with Application as IOleobject do
       DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
         GetClientRect);
 end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования