Показать сообщение отдельно
  #2  
Старый 09.11.2009, 22:52
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

при запуске браузера кнопки goback и goforward делай неактивными, и обработай евент CommandStateChange у браузера:
Код:
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;
  Command: Integer; Enable: WordBool);
begin
  case Command of
    CSC_NAVIGATEBACK: btnGoBack.Enabled := Enable;
    CSC_NAVIGATEFORWARD: btnGoForward.Enabled := Enable;
  end;
end;

а стартовая страница это просто ключ в реестре: HKCU\Software\Microsoft\Internet Explorer\Main\Start Page
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием