[Revan]

Кнопки я реализовал, но проблема в том, что при попытке переместиться на предыдущую/следующую страницу (если таковой нет) откомпиленный exe'шник браузера выдаёт "Неопознанная ошибка". Т.е. если ему некуда перемещаться, то он выдаёт ошибку. Подскажите, как сделать так, что бы такой ошибки не было?

[Decoding]

Код:

try
   WebBrowser1.GoBack;
except
   // Тут можешь обработать ошибку
end;

[Revan]

А я не знаю, какая ошибка. Начну сначала:
После того, как я откомпилил программу и нажал RUN, я нажимаю на кнопку назад/вперёд и Delphi выдаёт такую ошибку:

Project Project1.exe raised exception class EOleException with message 'Неопознанная ошибка'. Process stopped. Use Step or Run to coninue.

Мой код кнопки 'Назад':

Код:

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   webbrowser1.GoBack;
end;

[Revan]

Всё, разобрался.

[vah-smile]

А можна мне поподробнее, ато что-то не получается? Я ввожу:

try

WebBrowser1.GoForward;

except

BitBtn1.Enabled := False;

end;

И всеравно получаю ошибку

[Dux]

Посмотрите здесь

[AlexTheC0d3r]

Не проще ли прикрутить едит за форму или что иное, и использовать его значение как strtoint

т.е. Ты включил браузер - значение равно 0, при обработке GoBack

Код:

var i:integer;
begin
i:=strtoint(edit1.text);
if i=0 then webbrowser1.navigate('about:blank');
end
else
webbrowser1.goback;