Реализация кнопок Вперед, Назад и Отмена для TWebBrowserDelphi , Интернет и Сети , БраузерРеализация кнопок Вперед, Назад и Отмена для TWebBrowser
Оформил: DeeCo { When hosting the TWebbrowser control, it may be desirable to implement Forward/Back/Cancel buttons similar to those that Internet Explorer implements. The WebBrowser control supports a CommandStateChange() event, which is fired whenever the Forward/Back/Cancel button need to be enabled or disabled. The CommandStateChange event is sent with two parameters: a constant indicating the type of button (CSC_NAVIGATEFORWARD or CSC_NAVIGATEBACK or CSC_UPDATECOMMANDS), and a Boolean flag indicating whether to enable or disable the button. } { Beim TWebbrowser ist es vielleicht wьnschenswert, wenn es zugehцrige Buttons wie Vorwдrts/Rьckwдrts/Abbrechen gibt (siehe z.B Internet Explorer). Es gibt ein CommandStateChange() Ereignis, welches immer dann ausgelцst wird, wenn entweder der Vorwдrts/Rьckwдrts/Abbrechen aktiviert oder deaktiviert werden muss. CommandStateChange() hat zwei Parameter: Eine Konstante CSC_NAVIGATEFORWARD oder CSC_NAVIGATEBACK oder CSC_UPDATECOMMANDS, welche angibt, welcher Button betroffen ist und ein Boolean Wert, welcher den Status eines Button angibt (aktiviert oder deaktiviert) } // Navigate to a URL // Zu einer URL navigieren procedure TForm1.Button1Click(Sender: TObject); begin Webbrowser1.Navigate('www.delphiworld.narod.ru'); end; // Catch the events and set a button's Enabled state // Die Ereignisse abfragen und den "Enabled" Status eines Buttons setzen procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable; CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable; CSC_UPDATECOMMANDS: ButtonCancel.Enabled := Enable; end; end; procedure TForm1.ButtonBackClick(Sender: TObject); begin WebBrowser1.GoBack end; procedure TForm1.ButtonForwardClick(Sender: TObject); begin WebBrowser1.GoForward end; procedure TForm1.ButtonCancelClick(Sender: TObject); begin WebBrowser1.Stop; end; Статья Реализация кнопок Вперед, Назад и Отмена для TWebBrowser раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |