DelphiCode - WEBBROWSER - СОЗДАЕМ КНОПКИ "НАЗАД" и "ВПЕРЕД"

WEBBROWSER - СОЗДАЕМ КНОПКИ "НАЗАД" и "ВПЕРЕД"

Помещаем на форму компонент 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;

Delphicode.org

03.06.2008