Webbrowser Navigate - hängt sich innerhalb des Threads auf

[DataCool]

Hi Leute,

folgende Situation :
Ich habe einen TWebbrowser innerhalb meiner Form, dieser zeigt Werbebanner an, und wird über einen Thread alle 5 Min. aktualisiert.
Im OnDocumentComplete Ereignis des TWebrowsers blende ich die Scrollbleisten aus.

Leider kommt es im Moment öfters vor, das unser Werbeserver im Netz überlatet ist und dadurch ein komisches Verhalten an den Tag gelegt wird :
Das OnDoucmentComplete Ereignis tritt ein, obwohl die Seite noch nicht komplett ist.
Tja und dann hängt mein ganze Anwendung mit 0% CPU Last !
Das Navigate für den Webbrowser wird syncronisiert aus dem Thread aufgerufen.

Hier noch der Code des OnDocumentComplete Ereignisses :

Code:

procedure TfrmMain.WebBannerDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
   tim_Test.Enabled := true;
   try
      WebBanner.OleObject.Document.Body.Style.OverflowX := 'hidden';
      WebBanner.OleObject.Document.Body.Style.OverflowY := 'hidden';      
   except 
      WebBanner.stop;
      WebBanner.Navigate('about:blank');
   end;
   tim_Test.Enabled := false;   
end;

Tim_TEst ist ein Timer mit dem ich versucht habe das ganze wieder einzufangen, geht aber nicht.

Gruß Data

[Xeno-Sebi]

vielleicht ist die funktion überflüssig.
du kannst die scrollbars doch dauerhaft ausblenden, oda nicht?
habs delphi dafür ncith extra gestartet, aber ich glaube, dass der webbrowser zu den komponenten gehört, wo es die property "scrollbars" gibt. wenn du die auf ssnone stellst, sollte es gehen.

[Meflin]

nur zur info: es gibt auch delphi-code zum einfügen, das macht das ganze noch übersichtlicher. aber du könntest über das webdokument die scrollbars abschalten, indem du im body scroll="no" reintust!

[DataCool]

@Xeno-Sebi: Nein, die Scrollbar Proberty gibt es nicht.

@Meflin: Wo und wie habe ich den im Webbrowser einen direkten Zugriff(auch schreiben) ?

Gruß Data