Tutorial - TWebBrowser

-homer-

hi,

auch hier im Forum, kamen schon viele Fragen auf, die sich um den TWebBrowser drehten. Dieses tutorial soll keine Grundlagen vermitteln, sondern euch erklären, wie einfach es ist einen eigenen Browser zu schreiben.

Dann gehts mal gleich los: Ihr findet den TWebBrowser bei euch in der Komponenten Sammlung nicht? Dann sag ich euch mal, wie ihr den (installieren) könnt: Komponente -> ActiveX installieren -> nun erscheint eine Liste, in der die zu verfügung stehenden ActiveX Komponenten aufgelistet sind. Da wählt ihr nun Microsoft Internet Controls aus, und dann auf installieren.
Nun habt ihr den TWebBrowser installiert. Nun schiebt ihr den Browser auf euer Projekt. Seht sie euch an: Mit dieser Komponente wird es sicherlich super leicht einen (eigenen) Explorer zu schreiben.

Fangen wir jetzt mal mit dem Hauptteil an:

Wir plazieren auf unserer Form den TWebBrowser. Über ihn kommt ein EditFeld und oben eine Reihe von Buttons: Back, Forward, stop, refresh.
Nun folgender Code:

markieren

Delphi-Quellcode:

			procedure TForm1.Edit1KeyDown(Sender: TObject, var Key: Word; Shift: TshiftState);

begin

  if key = VK_RETURN then

  begin

    WebBrowser1.Navigate(Edit1.text);  // Browser öffnet Seite (Edit1.text)

    WebBrowser1.SetFocus;

  end;

end;

So das war ja einfach, die gute Nachricht: Es wird nicht schwieriger. Hier also die Procedueren, der Knöpfe.

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure TForm1.BackBtnClick(Sender: TObject);

begin

  WebBrowser1.GoBack;  // Der Brwser geht eine Seite zurück

end;

Procedure TForm1.ForwardBtnClick(Sender: TObject);

begin

  WebBrowser1.GoForward;  // Der Browser geht eine Seite vor

end;

Procedure TForm1.StopBtnClick(Sender: TObject);

begin

  WebBrowser1.Stop;  // Der Browser beendet das Laden der Seite

end;

Procedure TForm1.RefreshBtnClick(Sender. TObject);

begin

  WebBrowser.Refresh;  // Der Browser läd die Seite neu

end;

Und fertig ist unser Explorer. Wer kein internet hat, ihn aber trotzdem testen will, der kann ins Edit einfach C: eingeben. Dann ist man nämlich auf seinem Laufwerk C.

-homer-

ps.: Falls Wünsche bestehen, dass ich erkläre, wie man zum Beispiel eine Statusbar einbaut (mit ProgressBar), dann mache ich das gerne

**flomei**

Basiert aber auf dem Internet Explorer!

Und wer den nicht installiert hat (so wie ich zum Beispiel...

) wird nichts sehen...
Einen eigenen Browser schreiben ist also weitaus komplizierter...

MfG Florian

**Alexander**

Hi,
ich finde das passt er in die Code-Library...

da fehlt auch noch einiges....

**-homer-**

hi,

@Synonym: Was fehlt denn da?

Zitat:

ps.: Falls Wünsche bestehen, dass ich erkläre, wie man zum Beispiel eine Statusbar einbaut (mit ProgressBar), dann mache ich das gerne

Das habe ich ja extra in mein ps geschrieben.

-homer-

**Matze**

Z.B. fehlt auch, wie man Strg+C, Strg + x oder Strg + V wirksam macht, ebenfalls fehlt, dass im Browser die Entertaste anerkannt wird.

http://www.delphipraxis.com/topic580...=%2Awebbrowser

**-homer-**

hi,

ich werde das Tut nochmal komplett überarbeiten.

-homer-

**Manzoni**

lol

**-homer-**

hi,

wieso lol?

-homer-

Zitat von Matze:

Z.B. fehlt auch, wie man Strg+C, Strg + x oder Strg + V wirksam macht, ebenfalls fehlt, dass im Browser die Entertaste anerkannt wird.

http://www.delphipraxis.com/topic580...=%2Awebbrowser

z.B. das! oder der xp style den heute wohl ein browser vorweisen sollte...

synonym

flomei Delphi 2005 Personal	#2 17. Feb 2004, 15:06 Basiert aber auf dem Internet Explorer! Und wer den nicht installiert hat (so wie ich zum Beispiel... ) wird nichts sehen... Einen eigenen Browser schreiben ist also weitaus komplizierter... MfG Florian Florian Meier
	Zitat

Alexander Turbo Delphi für .NET	#3 17. Feb 2004, 15:10 Hi, ich finde das passt er in die Code-Library... Alexander
	Zitat

Synonym	#4 17. Feb 2004, 15:12 da fehlt auch noch einiges....
	Zitat

-homer- Delphi 7 Personal	#5 17. Feb 2004, 17:55 hi, @Synonym: Was fehlt denn da? Zitat: ps.: Falls Wünsche bestehen, dass ich erkläre, wie man zum Beispiel eine Statusbar einbaut (mit ProgressBar), dann mache ich das gerne Das habe ich ja extra in mein ps geschrieben. -homer- Aaron B.
	Zitat

Matze Turbo Delphi für Win32	#6 17. Feb 2004, 18:05 Z.B. fehlt auch, wie man Strg+C, Strg + x oder Strg + V wirksam macht, ebenfalls fehlt, dass im Browser die Entertaste anerkannt wird. http://www.delphipraxis.com/topic580...=%2Awebbrowser
	Zitat

-homer- Delphi 7 Personal	#7 17. Feb 2004, 18:21 hi, ich werde das Tut nochmal komplett überarbeiten. -homer- Aaron B.
	Zitat

Manzoni Delphi 7 Enterprise	#8 17. Feb 2004, 19:19 lol Bob
	Zitat

-homer- Delphi 7 Personal	#9 17. Feb 2004, 19:22 hi, wieso lol? -homer- Aaron B.
	Zitat

Synonym	#10 17. Feb 2004, 19:25 Zitat von Matze: Z.B. fehlt auch, wie man Strg+C, Strg + x oder Strg + V wirksam macht, ebenfalls fehlt, dass im Browser die Entertaste anerkannt wird. http://www.delphipraxis.com/topic580...=%2Awebbrowser z.B. das! oder der xp style den heute wohl ein browser vorweisen sollte... synonym
	Zitat

Tutorial - TWebBrowser

Forumregeln