Приветствую Вас ГостьСуббота, 08.08.2020, 04:56

WORLD of DELPHI


Мир кода

Главная » Статьи » Мир кода

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

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


procedure TForm1.Button1Click;

begin

 WebBrowser1.Navigate(Edit1.Text); #В этом поле мы будем указывать адресс, куда нужно перейти (url).

end;


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

 

procedure TForm1.Button2Click;
begin

 WebBrowser1.GoBack;

end;


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


procedure TForm1.Button3Click;

begin

  WebBrowser1.GoForward;

end;

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


procedure TForm1.Button4Click; 

begin

 WebBrowser1.Stop;

end;

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


procedure TForm1.Button5Click;

begin

 WebBrowser1.GoHome;

end;


Немножко подбавить оформления и нескольких штучек (типа закладок, истории и т.п.) - и полноценый браузер готов!
Категория: Мир кода | Добавил: Arcanis (12.08.2010)
Просмотров: 2995 | Комментарии: 3 | Рейтинг: 5.0/1
Всего комментариев: 1
0
1 AleD   [Материал]
теперь сделай статью "Парсинг и рендер HTML страниц" happy

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Главное меню
Разное
Форма входа
Категории раздела
Мир кода [4]
Примеры программ, статьи и др.
Опрос
Ваш уровень программирования на Delphi
Всего ответов: 41
Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Найти
Облако тегов
Друзья
Чат
200