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

Tips (1541)

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

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

81 Visitors Online


 
...OnDocumentComplete des Webbrowsers bei Frames verwenden?
Autor:
[ Tip ausdrucken ]  

Tip Bewertung (5):  
     


{
 When loading a page based on different frames into webbrowser
 control, "ONDocumentComplete" fires each time one of the frames
 gets completed. How can I find out, when this last Point
 is reached and get this final url?
}

{
 Wenn eine Seite mit Frames in den Webbrowser geladen wird, wird
 "OnDocumentComplete" jedesmal ausgelöst, wenn eine Frame fertig
 geladen ist.
 Ich benötige bei aber ein Ereignis, nachdem alle
 Frames geladen wurden. Aus der Hilfe geht hervor, dass dies mit dem Ereignis
 OnDocumentComplete realisiert werden kann.
}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  
CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;
begin
  
CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
  if CurWebrowser = TopWebBrowser then
    
ShowMessage('Complete document was loaded')
  else
  begin
    
Document := CurWebrowser.Document;
    WindowName := Document.ParentWindow.Name;
    ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
  end;
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


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