TWebBrowser ohne Rahmen?

DIGIMan · Beiträge: 37

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 · Verfasst: Mo 13.03.06 22:39

Hallo,

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

markieren

Delphi-Quelltext

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

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

DIGIMan · Beiträge: 37

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:

markieren

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 · Verfasst: Di 14.03.06 21:30

Lannes hat folgendes geschrieben:

Hallo,

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

markieren

Delphi-Quelltext

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

markieren

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;

_________________
GEIZ IST GEIL! - Ihr Sozialamt

DIGIMan · Beiträge: 37

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme