Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Webbrouser [D6, Win95/98]


SlavaLamer ©   (2002-03-19 14:48:00) 

Как для Webbrouser узнать, можно ли дать команду GoBack или GoForward ?


Ray Adams   (2002-03-21 00:01:00) [1]

Вот кусок из моего редактора
Обрабатывается событие CommandStateChange
----------
procedure TfrmPHPEdit.WebBrowser1CommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
begin
case cardinal(Command) of
CSC_NAVIGATEBACK:Form1.BrowseBack.Enabled:=Enable;
CSC_NAVIGATEFORWARD:Form1.BrowseForw.Enabled:=Enable;
CSC_UPDATECOMMANDS:
begin
Form1.BrowseStop.Enabled:=WebBrowser1.Busy;
Form1.BrowseRefresh.Enabled:=WebBrowser1.QueryStatusWB(OLECMDID_REFRESH)=(OLECMDF_SUPPORTED or OLECMDF_ENABLED)
end;
end;
end;


SlavaLamer   (2002-03-20 19:45:00) [2]

Спасибо!


-=CrazyFish=-   (2002-03-19 16:07:00) [3]

при вызове этих методов используй конструкцию
try
WebBrowser1.GoBack;
exception
// значит нельзя
end;

если возник exception, то обработай его сам.


Наверх

Титульная страница Поиск, карта сайта Написать письмо