Web-böngésző Delphi - szoftverek

Ma úgy döntöttem, hogy megmondja, hogyan kell használni a Delphi, hogy írjon egy böngésző, és működni fog alapján az Internet Explorer.

A legfontosabb része a program webböngésző komponens megtalálható a komponens palettán az Internet fülre.

Annak érdekében, hogy tegyünk formában a komponens, akkor láthatjuk a fehér négyzet, csak ezen a területen, és betölti a kívánt weboldalt.

A kényelem, alkatrész helyét változtassa meg AllClient align tulajdonság az Object Inspector a Tulajdonságok fülre.

A kényelem a böngésző, akkor kell használni a panel, amelyet található a mezők és gombok. Ehhez kattintson a lap Win 32 és található formájában ezen a lapon alkatrész CoolBar és ToolBar kettő. A CoolBar komponenst. lesz, ToolBar komponensek amely lehet mozgatni rajta, amint lesz beviteli mezők és gombok eszköztár. Amint azt veszi észre az ilyen rendszer használható szinte minden Windows alkalmazás és böngésző is, mert nem térnek el ezt a szabályt (ez csak kényelmes).

Most vissza a ComboBox 1 komponens, akkor lépjen a ToolBar 2 és 1, mi eszköztáron vezérlő gombokkal.

Ez történt velem:

ha Key = VK_RETURN majd
WebBrowser1.Navigate (ComboBox1.Text);

Most tulajdonságainak módosítása az alkatrész Eszköztár1: autoSize' és ShowCaptions igaz.
Kattintsunk rá a jobb gombbal, és válassza ki NewButton menü, az szükséges, hogy a vizsgálóbizottság létrehozását. Készítsen amíg négy gomb, és változtatni a tulajdonságok Feliratok: Vissza, Előre újratöltése Stop.
Most írunk minden:

eljárás TForm1.ToolButton2Click (Sender: TObject);
kezdődik
WebBrowser1.GoBack;
végén;

eljárás TForm1.ToolButton3Click (Sender: TObject);
kezdődik
WebBrowser1.GoForward;
végén;

eljárás TForm1.ToolButton4Click (Sender: TObject);
kezdődik
WebBrowser1.Stop;
végén;

eljárás TForm1.ToolButton5Click (Sender: TObject);
kezdődik
WebBrowser1.Refresh;
végén;

Azt hiszem, mindenki tudja, hogy azt mutatják, ezek a kulcsok bármely böngészővel.
Most akkor nézd meg a munka!

A formám láthatjuk az alján a két panel, az alsó panel információkat jelenít meg a letöltés előrehaladásának, a másik az információ megjelenítésére betöltésekor a szalag.
Nem található a panel neve alatt Win32 StatusBar és ProgresBar, rendezze őket az űrlapon, és változtassa meg a Align tulajdonság AllBottom, hogyan kell változtatni a tulajdonságait a komponens már mondtam.

Úgy, hogy a munka a rakodók WebBrowser1 kifogást események:

OnProgressChange és OnStatusTextChange write:

// beállítja a maximális érték és a pozíció értékét (stroke) letöltés
// az ProgressBar1

eljárás TForm1.WebBrowser1ProgressChange (Sender: TObject; Progress,
ProgressMax: Egész szám);
kezdődik
ProgressBar1.Max: = ProgressMax;
ProgressBar1.Position: = Folyamat;
végén;

// I levezetni információt a letöltési oldalról StatusBar1.

eljárás TForm1.WebBrowser1StatusTextChange (Sender: TObject;
const Szöveg: WideString);
kezdődik
StatusBar1.SimpleText: = szöveg;
végén;