Подписаться на RSS рассылку
Главная » Статьи по Delphi » Браузер » Простейший обозреватель на основе TWebBrowser

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

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

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

Далее добавляем код в обработчик 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;

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

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта