в Delphi при работе с WebBrowser ?(GoBack и GoForward)

[OST_K]

Delphi при работе с WebBrowser (GoBack и GoForward) если раньше не просматривалась ни одна страница выходит ошибка как можно придумать чтоб не выдавала ошибку при нажатии на кнопки Назад и Вперед (GoBack и GoForward) если раньше не просматривалась ни одна страница

[Виталий Желтяков]

Если не ошибаюсь Вы неделю назад задавали этот вопрос и Вам ответили, как это сделать.

[russian-stalker]

Почему бы не сделать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  webbrowser1.GoBack
 except
  webbrowser1.OleObject.document.write('<b>Главная страница</b>');
  button1.Enabled:=false;
 end;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
 button1.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 button1.Enabled:=false;
 webbrowser1.Navigate('www.google.ru');
end;