Сделаем попытку создать браузер на Дельфи с помощью компонента под названием WebBrowser…

Для того чтобы начать работу, необходимо положить на форму WebBrowser, который есть на самой вкладке Internet.

Потом ложим на форму еще и ComboBox, это у нас будет строка именно для написания сайтов в браузере нашем. Позже идём Object Inspector -> Events и ищем onkeydown, делаем по нему два клика и вставляем:

procedure TForm1.ComboBox1KeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

if Key = VK_RETURN then

WebBrowser1.Navigate(ComboBox1.Text);

end;

Фактически теперь наш браузер уже готов.

При зауске программы и написании сайта в отведенном для этого поле и последующего нажатия Enter, WebBrowser откроет сайт.

Следующим по последовательности шагом будет добавление в только что созданный нами браузер кнопок навигации. Это: Вперёд, Назад, Обновить, Стоп и Печать страницы. В приведенном ниже случае, кнопки показаны в виде картинок.

Код функции Вперёд

procedure TForm1.forwardClick(Sender: TObject);

begin

WebBrowser1.GoForward;

end;

Код функции Назад

procedure TForm1.backClick(Sender: TObject);

begin

WebBrowser1.GoBack;

end;

Код функции Обновить

procedure TForm1.updateClick(Sender: TObject);

begin

WebBrowser1.Refresh;

end;

Код функции Стоп

procedure TForm1.stopClick(Sender: TObject);

begin

WebBrowser1.Stop;

end;

Код функции Печать страницы

procedure TForm1.printClick(Sender: TObject);

var

PostData, Headers: OLEvariant;

begin

WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);

end;