Entwickler-Ecke

Internet / Netzwerk - TWebBrowser ohne Rahmen?


DIGIMan - Mo 13.03.06 19:54
Titel: TWebBrowser ohne Rahmen?
Hallo, gibt es eine Möglichkeit den Rahmen des WebBrowser abzuschalten.
Wenn ich einen Internet Seite laden wird immer die 3D Vertiefung gemacht und diese soll aber verschwinden!

LG Mirko


Lannes - Mo 13.03.06 22:39

Hallo,

wenn sicher gestellt ist das die Seite vollständig geladen ist,
kann der folgende Code genutzt werden:

Delphi-Quelltext
1:
WebBrowser1.OleObject.Document.Body.Style.BorderStyle := 'none';                    


DIGIMan - Di 14.03.06 21:21

Sorry, aber ich bin neuling und verstehe es einfach nicht, bekomme nach dem Compilieren einen Standart Fehler, das er die Form nicht öffnen kann...

Hier mein Aufruf:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
procedure TfrmSender.FormCreate(Sender: TObject);

begin

    WebBrowser1.Navigate('http://www.kinday.net/client/news.php?userID=' + IntToStr(dmMain.UserId));
    WebBrowser1.OleObject.Document.Body.Style.BorderStyle := 'none';
    WebBrowser2.Navigate('http://www.kinday.net/client/upload.php?userID=' + IntToStr(dmMain.UserId));
    //WebBrowser2.OleObject.Document.Body.Style.BorderStyle := 'none';
    WebBrowser3.Navigate('http://www.kinday.net/client/profil.php?userID=' + IntToStr(dmMain.UserId));
    //WebBrowser3.OleObject.Document.Body.Style.BorderStyle := 'none';
    WebBrowser4.Navigate('http://www.kinday.net/client/support.php?userID=' + IntToStr(dmMain.UserId));
    //WebBrowser4.OleObject.Document.Body.Style.BorderStyle := 'none';
end;


starsurfer - Di 14.03.06 21:30

user profile iconLannes hat folgendes geschrieben:
Hallo,

wenn sicher gestellt ist das die Seite vollständig geladen ist,
kann der folgende Code genutzt werden:

Delphi-Quelltext
1:
WebBrowser1.OleObject.Document.Body.Style.BorderStyle := 'none';                    



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.kinday.net/client/news.php?userID=');
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.Body.Style.BorderStyle := 'none';
end;


DIGIMan - Di 14.03.06 22:13

Überprüf mal bitte deine Anweisung dort sind einige Fehler drin!
Danke...