× Aktuálně z oboru

SHIELD Experience Upgrade 7 – méně hledání a více zábavy [ clanek/2018052902-shield-experience-upgrade-7-mene-hledani-a-vice-zabavy/ ]
Celá zprávička [ clanek/2018052902-shield-experience-upgrade-7-mene-hledani-a-vice-zabavy/ ]

Internetový prohlížeč v Delphi

[ http://programujte.com/profil/20356-ondrej-hlavaty/ ]Google [ ?rel=author ]       [ http://programujte.com/profil/75-martin-zak/ ]Google [ :?rel=author ]       16. 3. 2007       26 825×

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.


Článek stažen z webu Programujte.com [ http://programujte.com/clanek/2007022406-internetovy-prohlizec-v-delphi/ ].