Как Создать Браузер на Delphi

WinHack

Администратор
23 Фев 2015
2,907
1,916
bsfo.ru
Привет всем.
Решил написать гайд для вас
Как создать простой веб браузер на основе IE.

Итак начнем....
Открываем Delphi 7 и создаем проект..
На форму кидаем: WebBrowser(С вкладки Internet), ComboBox(С вкладки Standart), 4 Button(Вкладка Standart), Label(По желанию)
Далее точные действия по гайду..
Вернемся к - ComboBox
В событие, OnKeyDown

[Поставим код]
Код:
if Key= VK_RETURN then WebBrowser1.Navigate(ComboBox1.Text);

Теперь вернмся к кнопкам.
И назовем их - Назад, Вперед, Обновить и Стоп.
И поставим коды:

[Назад]

Код:
WebBrowser1.GoBack;
[Вперед]

Код:
WebBrowser1.GoForward;

[Стоп]

Код:
WebBrowser1.Stop;
[Обновить]

Код:
WebBrowser1.Refresh;

Все браузер готово, можете проверять.



p.s.Для более красивого результата можно использовать в программе AlhaSkin, ToolBar, Coolbar, кто понимает зачем это нужно то поставьте) будет очень красиво.

Не забываем про "Мне нравится"
 

Hex

Ya top
Пользователь
22 Мар 2015
461
583
o_O
У меня исходник лучше есть)
 

Po6oKon

Пользователь
27 Сен 2015
5
0
Думаю это уже и так всем известно ))
Обычная форма, компонент, добавить едит и кнопку можно и вуаля!:))
На кнопку засунуть процедурку по самые гланды ))
var
url:string;
begin
url:=Edit1.Text
WebBrowser1.Navigate('url');
end;

=)