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

Тема в разделе "Delphi", создана пользователем WinHack, 29 авг 2015.

  1. WinHack
    Привет всем.
    Решил написать гайд для вас
    Как создать простой веб браузер на основе 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, кто понимает зачем это нужно то поставьте) будет очень красиво.

    Не забываем про "Мне нравится"
     
  2. Hex
    o_O
    У меня исходник лучше есть)
     
  3. WinHack
    Выложи!
     
  4. Po6oKon
    Думаю это уже и так всем известно ))
    Обычная форма, компонент, добавить едит и кнопку можно и вуаля!:))
    На кнопку засунуть процедурку по самые гланды ))
    var
    url:string;
    begin
    url:=Edit1.Text
    WebBrowser1.Navigate('url');
    end;

    =)