was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

32 Visitors Online


 
...den Fokus auf einen TWebbrowser setzen?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (22):  
     


{
  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 Möglichkeiten 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):
}


{1}

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;

{2}

uses
  
MSHTML;

begin
  
WebBrowser1.Navigate('irgendeinedatei.html');
  repeat
    
Application.ProcessMessages;
  until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
  if WebBrowser1.Document <> nil then
  
(Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus;
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners