Web-браузър Делфи - софтуер

Днес реших да ви кажа как да се използват Delphi да напишете вашия браузър и тя ще работи на базата на Internet Explorer.

Най-важната част от нашата програма ще уеббраузър компонент, който може да намерите на компонент палитра в раздела Интернет.

Така че пуснати на нашата форма за този компонент, а след това можете да видите на бял квадрат поле, точно в тази област, и ще се зареди желаната уеб страница.

За удобство, местоположение компонент променя Align имот да AllClient в инспектора обект в раздела Properties.

За удобство на нашите браузър, трябва да използвате панела, който ще се намира на нашите полета и бутони. За да направите това, щракнете върху раздела Win 32 и се намира на формата от този раздел CoolBar компонент и лентата с инструменти две. На компонент CoolBar. ще бъде, лентата с инструменти компоненти, които могат да се местят по него, тъй като ще бъде полета за въвеждане и бутони в лентата с инструменти. Както можете да забележите такава схема се използва в почти всички Windows приложения и браузъри, също, защото ние не се отклоняват от това правило (това е просто удобно).

Сега обратно към ComboBox компонент 1, той ще се премести в лентата с инструменти, 2 и 1, ние лентата с инструменти бутони за управление.

Това е, което се случи с мен:

ако Key = VK_RETURN след това
WebBrowser1.Navigate (ComboBox1.Text);

Сега промените свойствата на ToolBar1 компонента: AutoSize и ShowCaptions да е вярно.
Ние кликнете върху него с десния бутон и изберете меню NewButton, че е необходимо създаването на панел. Създаване докато четири бутона и променят свойствата си при надписи: Назад, Напред, Презареждане и Стоп.
Сега пиша за всеки:

процедура TForm1.ToolButton2Click (Sender: TObject);
започвам
WebBrowser1.GoBack;
приключи;

процедура TForm1.ToolButton3Click (Sender: TObject);
започвам
WebBrowser1.GoForward;
приключи;

процедура TForm1.ToolButton4Click (Sender: TObject);
започвам
WebBrowser1.Stop;
приключи;

процедура TForm1.ToolButton5Click (Sender: TObject);
започвам
WebBrowser1.Refresh;
приключи;

Мисля, че всеки знае, че се посочи тези ключове в който и да е браузър.
Сега можете да проверите вашата работа!

На моя форма можете да видите на дъното на двата състава, най-долния панел показва информация за хода на изтеглянето, а другата за да се покаже информация за зареждане на лентата.
Той е разположен на панела под имената Win32 Лента за състоянието и ProgresBar, да ги подредите по формата и промените Align имота AllBottom, как да промените свойствата на компонента, което вече казах.

Така, че те работят в манипулатори WebBrowser1 възразят събития:

OnProgressChange и OnStatusTextChange пиши:

// определя максималната стойност и стойността на позиция (инсулт) изтегляне
// за ProgressBar1

процедура TForm1.WebBrowser1ProgressChange (Sender: TObject; напредъка,
ProgressMax: цяло число);
започвам
ProgressBar1.Max: = ProgressMax;
ProgressBar1.Position: = напредъка;
приключи;

// I извод информация на страницата за изтегляне на StatusBar1.

процедура TForm1.WebBrowser1StatusTextChange (Подател: TObject;
Конст Текст: WideString);
започвам
StatusBar1.SimpleText: = Текст;
приключи;