Web-browser-delphi - software-ul

Astăzi am decis să vă spun cum să utilizați Delphi poate scrie browser-ul dvs. și va funcționa pe baza de Internet Explorer.

Cea mai importantă parte a programului nostru va WebBrowser componenta pe care o puteți găsi pe paleta de componente în fila Internet.

Așa că a pus pe formularul nostru acea componentă, atunci puteți vedea caseta pătrat alb, tocmai în acest domeniu, și va încărca pagina de web dorită.

Pentru comoditate, componenta de locație pentru a schimba proprietatea sa Aliniați la AllClient în inspectorul obiect pe fila Properties.

Pentru comoditatea browser-ul nostru, trebuie să utilizați panoul, care va fi amplasat câmpuri și butoanele noastre. Pentru a face acest lucru, faceți clic pe tab-ul Win 32 și este situat pe formularul din această filă CoolBar componentă și ToolBar două. Pe componenta CoolBar. va fi, componentele toolbar care pot fi deplasate pe aceasta, așa cum va fi câmpuri de intrare și butoanele de pe ToolBar. După cum observați un astfel de sistem este folosit în aproape toate aplicațiile și browserele Windows, de asemenea, pentru că nu se îndepărtează de la această regulă (este doar convenabil).

Acum, înapoi la componenta ComboBox 1, se va muta la bara de instrumente 2 și 1, am bara de instrumente aflată butoane de control.

Asta e ceea ce sa întâmplat cu mine:

în cazul în care cheia = VK_RETURN apoi
WebBrowser1.Navigate (ComboBox1.Text);

Acum schimba proprietățile ToolBar1 componente: autosize și ShowCaptions la true.
Facem click pe ea butonul din dreapta și selectați meniul NewButton, este necesar pentru stabilirea unui panou. Creați până la patru butoane și de a schimba proprietățile lor la Legende: Înapoi, Înainte și Reîncărcați Stop.
Acum vom scrie pentru fiecare:

Procedura TForm1.ToolButton2Click (Expeditor: TObject);
începe
WebBrowser1.GoBack;
se încheie;

Procedura TForm1.ToolButton3Click (Expeditor: TObject);
începe
WebBrowser1.GoForward;
se încheie;

Procedura TForm1.ToolButton4Click (Expeditor: TObject);
începe
WebBrowser1.Stop;
se încheie;

Procedura TForm1.ToolButton5Click (Expeditor: TObject);
începe
WebBrowser1.Refresh;
se încheie;

Cred că toată lumea știe că aceste chei indică în orice browser.
Acum puteți verifica munca ta!

Pe formularul meu puteți vedea partea de jos a celor două panouri, în partea de jos afișează informații panou cu privire la progresul descărcării, iar celălalt pentru a afișa informații despre încărcarea benzii.
Este situat pe panoul de sub numele de Win32 și StatusBar ProgresBar, aranjați-le pe forma și schimba proprietatea Aliniere la AllBottom, cum să schimbe proprietățile componentei I-am spus deja.

Așa că ei lucrează în handlerele WebBrowser1 obiectează evenimente:

OnProgressChange și OnStatusTextChange scrie:

// setează valoarea maximă și valoarea poziției (accident vascular cerebral) descărcare
// pentru ProgressBar1

Procedura TForm1.WebBrowser1ProgressChange (Expeditor: TObject; Progress,
ProgressMax: Integer);
începe
ProgressBar1.Max: = ProgressMax;
ProgressBar1.Position: = Progress;
se încheie;

Deduc // informații pe pagina de descărcare pentru a StatusBar1.

Procedura TForm1.WebBrowser1StatusTextChange (Expeditor: TObject;
Text const: WideString);
începe
StatusBar1.SimpleText: = text;
se încheie;