![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Доброе время суток!
Пробую создать очень простой браузер. Столкнулся с 2 проблемами: 1) Если нету предыдущей страницы, то при нажатии на кнопку GoBack выдаеь ошибку. Аналогично с GoForward. Как сделать что бы эти кнопки имели свойство enable=false когда на них нельзя перейти? 2) Как задать страницу для GoHome? ![]() |
#2
|
||||
|
||||
![]() при запуске браузера кнопки 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; Последний раз редактировалось AleD, 09.11.2009 в 22:55. |
#3
|
|||
|
|||
![]() Большое спасибо!
|