Imprimer et Enregistrer la page du TWebBrowser

Nous avons vu comment créer les boutons "précédent" et "suivant" pour votre navigateur (cf fonctions de base du TWebBrowser). Nous pouvons encore améliorer ce code en désactivant les boutons si aucune page n'est disponible (début ou fin de l'historique).

1. Mettez la propriété Enabled de vos boutons Suivant et Précédent à False

2. Ajoutez ce code à l'évènement CommandStateChange du TWebBrowser.

procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool);
begin

if Command=CSC_NAVIGATEBACK then Precedent.Enabled:= Enable;
if Command=CSC_NAVIGATEFORWARD then Suivant.Enabled:=Enable;
// Note : ici les boutons portent les noms Precedent et Suivant

end;

Des questions ? Rejoignez nous sur le forum...