Простейший обозреватель на основе TWebBrowser

Автор: Артем Алмазов

На форму выкладываем TWebBrowser, 5 кнопок TButton, и одно поле TEdit. Для кнопок изменяем свойство Caption на "Назад", "Вперед", "Стоп", "Домой" и "Перейти". Размещаем поудобнее .

Далее добавляем код в обработчик OnClick для кнопки "Перейти":

procedure TForm1.Button4Click;
begin
 WebBrowser1.Navigate(Edit1.Text);
end;

В поле нужно указывать адресс, куда нужно перейти (url).

Для кнопки "Назад" обработчик OnClick:

procedure TForm1.Button1Click;
begin
 WebBrowser1.GoBack;
end; 

Для кнопки "Вперед":

procedure TForm1.Button2Click;
begin
 WebBrowser1.GoForward;
end; 

Для кнопки "Стоп":

procedure TForm1.Button3Click; 
begin 
 WebBrowser1.Stop; 
end; 

Для кнопки "Домой":

procedure TForm1.Button5Click; 
begin 
 WebBrowser1.GoHome;
end; 

Вот впринципе и всё. Наш элементарный браузер готов.

Просмотров: 6006

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.