was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

28 Visitors Online


 
...Vorwärts/Rückwärts/Abbrechen Buttons im TWebbrowser implementieren?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (10):  
     


{
  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.SwissDelphiCenter.com');
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;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners