Webbrouser

← →
SlavaLamer (2002-03-19 14:48) [0]

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

← →
-=CrazyFish=- © (2002-03-19 16:07) [1]

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

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

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

Спасибо!

← →
Ray Adams (2002-03-21 00:01) [3]

Вот кусок из моего редактора
Обрабатывается событие 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;

Webbrouser Найти похожие ветки