HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Tippek/trükkök a TWebBrowser komponenshez


Példaprogram letöltése

4250 bájt

Ebben a példában néhány olyan trükköt ismertetünk, amelyek segítségével még jobban növelhetjük a TWebBrowser komponens használhatóságát. A következő funkciókat valósítjuk meg: mentés másként, linkek kigyűjtése a letöltött oldalról, ScrollBar-ok átszínezése, zoomolás a megjelenített oldalon. Azt is megnézzük, hogy miként lehet lekérdezni, hogy a másolás funkció aktiválva van-e, valamint hogy a letöltött oldal az Interneten vagy helyi lemezen található-e.

Először is, természetesen meg kell nyitnunk egy oldalt, amely lehet az Interneten vagy akár egy helyi lemezen is.
WebBrowser1.Navigate(Edit1.Text);
Mentés másként
Ezt a WebBrowser ExecWB parancsával kérhetjük. Ilyenkor megjelenik a hagyományos mentés másként ablak, amelyben meghatározhatjuk a lementendő oldal helyét és nevét.
WebBrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT);
Linkek kigyűjtése
A letöltött oldal számos linket tartalmazhat. Néha nem árt tudni, hogy ezekhez a linkekhez milyen URL cím tartozik.
for i:=0 to Webbrowser1.OleObject.Document.Links.Length-1 do
  Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
ScrollBar-ok átszínezése
Lehetőségünk van arra, hogy saját magunk határozzuk meg a ScrollBar-ok színét és stílusát.
with WebBrowser1 do begin
  OleObject.document.body.Style.scrollbarArrowColor:='#0099FF';
  OleObject.document.body.Style.scrollbar3DLIGHTCOLOR:='#FFFFFF';
  OleObject.document.body.Style.scrollbarDarkShadowColor:='#0099FF';
...
A betöltött oldal forrása
Egy weboldalt vagy az Internetről, vagy egy helyi lemezről tölthetünk be. Hogy a megnyitott oldal mégis hol található, azt az alábbi módon tudhatjuk meg.
if Webbrowser1.Oleobject.Document.Location.Protocol='file:' then
  ShowMessage('A megnyitott oldal helyi lemezen található!')
else
  ShowMessage('A megnyitott oldal az internetrol lett betöltve!');
Másolás funkció aktív-e
A WebBrowser komponensben ugyanúgy használhatjuk a másolás funkciót és a vágólapot, mint bármely más Windows-os alkalmazásban. Ha kijelölünk egy szövegrészt, majd a másolás funkciót választjuk, akkor a másolás funkció aktív állapotba kerül.
if Webbrowser1.OleObject.Document.QueryCommandEnabled('Copy') then
  ShowMessage('A másolás parancs aktív!')
else
  ShowMessage('A másolás parancs nemaktív!')
A nézet kicsinyítés, nagyítása
A WebBrowser komponens lehetőséget biztosít arra is, hogy az általa megjelenített dokumentum nézetét mi állítsuk be.
WebBrowser1.OleObject.Document.Body.Style.Zoom:=StrToFloat(Edit2.Text);

Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 309. oldal

Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |