На вкладке Internet палитры компонентов находится не только компоненты, реализующие сокеты. Там есть, например, компонент WebBrowser, позволяющий без усилий запрограммировать собственный просмотрщик веб-страниц. Поместите на форму компонент WebBrowser поле ввода Edit , в которое пользователь может ввести URL страницы , и кнопку, по нажатии на которую браузер откроет указанную страницу. Обработайте событие кнопки OnClick :
Код:Код procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate(Edit1.Text); end; Кроме метода Navigate компонент WebBrowser обладает множеством свойств и методов, полезных для путешествий по интернету: методы GoBack и GoForward, реализующие переход на предыдущую и следующую страницы, GoHome для перехода на домашнюю страницу, Stop для отмены текущего действия и т.п.
|