Discussion :

[Jacques(BE)]

Bonjour,

Je me considère plutôt comme un débutant en Delphi. Je dois modifier une petite application qui contient un WebBrowser. La page htm (avec frame) qui est affichée possède un menu à gauche et selon l'article choisit, celui s'affiche à droite. Je dois corriger ou améliorer l'application en créant un bouton pour revenir à la page précédente. J'aimerai donc pouvoir garder en mémoire le lien de la page précédente.

Comment faire ?

Merci de vos réponses

Jacques

[Pedro]

Salut
Il me semble que le TWebBrowser contient déjà la fonction Je crois que c'est GoBack

[petitcoucou31]

Salut ..

j'ai ce code dans une de mes appli , cela peut d'aider peut etre..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TFormAide.BtNetPrecedantClick(Sender: TObject);
begin
  try WebBrowser1.GoBack except end; //affiche la page précédente
end;
//------------------------------------------------------------------------------
procedure TFormAide.BtNetSuivantClick(Sender: TObject);
begin
    try WebBrowser1.GoForward except end;//affiche la page suivante
end;
//------------------------------------------------------------------------------
procedure TFormAide.BtNetDepart;
begin
  try WebBrowser1.Navigate(ComboBoxURL.Text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    if not(ControleSiAdresseExite(ComboBoxURL.Text)) then
       ComboBoxURL.Items.Add(ComboBoxURL.Text); // rajoute l'URL de la page dans les Items du ComboBox
  except end;
end;
//------------------------------------------------------------------------------
procedure TFormAide.BtNetOuvreAideClick(Sender: TObject);
begin
   ComboBoxURL.Text:=CheminprogSommaire+'aide.htm';
   BtNetDepart; //affichage du contenu du fichier
end;

Bye.[/code]

[Jacques(BE)]

bonjour,

Merci à vous eux


Jacques