delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Мини браузер

Наш опрос

Как вы попали на сайт ???
Всего ответов: 485

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Создание мини браузера в Delphi 7.
Для браузера понадобяться следующие компоненты:

5 кнопок Button вкладка Standard
edit вкладка Standard
WebBrowser вкладка Internet

Кидаем на форму 5 кнопок Button , edit и WebBrowser

У 1 кнопки Caption делаем "<" У второй ">" У третей "Домой" У четвертой "Поиск" У пятой "Перейти"

в первой кнопке пишем :

WebBrowser1.GoBack;

В итоге код должен получиться таким:

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

end.

Во второй кнопке пишем:

WebBrowser1.GoForward;

В итоге код должен получиться таким:

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

end.

В третьей кнопке пишем:

WebBrowser1.GoHome;

В итоге код должен получиться таким:

procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.GoHome;
end;

end.

В четвертой кнопке пишем:

WebBrowser1.GoSearch;


В итоге код должен получиться таким:

procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.GoSearch;
end;

end.

В пятой кнопке пишем:

WebBrowser1.Navigate(edit1.Text);

В итоге код должен получиться таким:

procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.Navigate(edit1.Text);
end;

end.

Кликаем по edit один раз и в функции Text пишем http:\\
Кликаем по форме один раз и в функции AutoSize ставим True
И растягиваем WebBrowse как вам надо

Мини браузер готов
Скачать исходник
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432