Помещаем на форму компонент TWebBrowser (вкладка Internet) и две кнопки TButton. Для перехода вперед и назад по истории просмотренных веб-страниц используются стандартные процедуры GoBack и GoForward, примеры показаны ниже:
procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.GoBack; end;
procedure TForm1.Button2Click(Sender: TObject); begin WebBrowser1.GoForward; end;
Однако, если список истории пуст, либо закончился, при использовании этих процедур возникает ошибка. Чтобы этого избежать необходимо в обработчике событий OnCommandStateChange компонента WebBrowser добавить следующее:
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: Button1.Enabled := Enable; CSC_NAVIGATEFORWARD: Button2.Enabled :=Enable; end; end;
