Internetový prohlížeč v Delphi

Mimořádně jednoduché vytvoření internetového prohlížeče.

Je to opravdu jednoduché: na formulář dejte komponenty Webbrowser z palety Intenet, Button, Label, Edit a Panel. Panelu dejte Align: alTop a Browseru Align: alClient.

Na panel přesuňte zbývající komponenty. Pak už stačí jen upravit metodu Button1.OnClick a dát do ní tento kód:

WebBrowser1.Navigate(Edit1.Text);

Toto už je funkční prohlížeč, ale hodně slabý, takže můžete přidat na panel ještě dalších pět tlačítek a upravit jejich velikost do tvaru čtverce. A do jejich metod OnClick dát postupně toto:

Jako tlačítko Zpět:

WebBrowser1.GoBack;

Jako tlačítko Vpřed:

WebBrowser1.GoForward;

Jako tlačítko Domů:

WebBrowser1.GoHome;

Jako tlačítko Stop:

WebBrowser1.Stop;

Jako tlačítko Aktualizovat:

WebBrowser1.Refresh;

A další vymoženosti už nechám na vás.