Кнопка вперёд и назад, Twebbrowser

← →
Aik (2003-11-12 10:39) [0]

Люди, подскажите пожалуйста кто-нибудь, как избавиться от ошибки, которая возникает, если назад и вперёд перейти нельзя? То есть дошёл пользователь с помощью конопки "Назад" до самой первой страницы, а потом, нажимая её ещё раз, он видит сообщёение об ошибке.

← →
Плохиш_ (2003-11-12 10:41) [1]

Отключить кнопку не поможет?

← →
Aik (2003-11-12 10:42) [2]

а если она нужна?

← →
Saturn © (2003-11-12 10:46) [3]

слелай проверку и если он на первой странице свяжы с кнопкой пустой код пусай кликает сколько хочет :)

← →
Плохиш_ (2003-11-12 10:46) [4]

Ну тогда не выводи сообшение об ошибке

← →
Aik (2003-11-12 10:46) [5]

дык понятно, а как эту проверку делать???

← →
Saturn © (2003-11-12 10:51) [6]

Я ж не знаю какую именно прогу ты пишеш

← →
Aik (2003-11-12 11:08) [7]

у мя прога. в ней twebbrowser и три кнопки: вперёд, назад и выход.
так фишка в чём. скажем, возьмём интернет эксплорер. там, кады переходить некуда, эти кнопки неактивны. а у меня активны. и ошибку выдают при нажатии на них...
Так как их неактивными делать?

← →
Saturn © (2003-11-12 11:39) [8]

Создай хотя бы список со страницами которые открывались и если ты в начале или конце (это зависит от того что надо) списка то кнопку делаеш неактивной .
Или переменную введи если нажали вперед то +1 если назад то -1
а если 1 или 0 (все зависит от реализации) то кнопка назат неактивна.
чтото вроде такого тут надо чтобы твоя фантазия работала

← →
nikkie © (2003-11-12 11:58) [9]

procedure TForm1.WebBrowserCommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: FGoBackEnabled := Enable; CSC_NAVIGATEFORWARD: FGoForwardEnabled := Enable; end; end;

← →
Yanis © (2003-11-12 12:11) [10]

try
...
except
...
end

← →
Aik (2003-11-13 15:01) [11]

Не помогает.
Люди, как с условием if then else сделать?
А то код выше не работает.

В Delphi6 есть пример именно того что ты спрашиваешь.

← →
Aik (2003-11-14 08:17) [13]

И как этот пример называется?

← →
alles55 (2003-11-14 12:28) [14]

...\Delphi\Demos\CoolStuf

← →
alles55 (2003-11-14 12:28) [15]

...\Delphi\Demos\CoolStuf

← →
alles55 (2003-11-14 12:28) [16]

...\Delphi\Demos\CoolStuf

Кнопка вперёд и назад, Twebbrowser Найти похожие ветки