NAVIGATEUR MULTI-OUTILS - EDITION HTML

Commentaire de cantador le 29/04/2007 17:59:59 administrateur CS

J'ai collé un bouton et un mémo sur ta forme et çà marche :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i : Integer;
begin
  for i:=0 to WebBrowser1.OleObject.Document.Links.Length-1 do
    Memo1.Lines.Add(WebBrowser1.OleObject.Document.Links.Item(i));
end;

Il te faut chercher l'évènement permettant l'exécution direct de ce code et donc d'afficher les liens..
Après, il faudra certainement traiter l'affichage des liens puis écrire le double-clic qui manque etc etc..

bon courage pour la suite et pense à renommer tes composants

Commentaire de randriano le 30/04/2007 18:45:00

Je ne comprends ce que tu dis CANTADOR, pour moi, le bouton est remplacé par un clic et ton mémo j'utilise un listbox.
Merci pour ton soutien ALI_USTO!
En fait pour le bouton visitez le lien:
if ListBox1.ItemIndex<>-1 then
  begin
     WebBrowser1.Navigate(ListBox1.Items.Strings[ListBox1.ItemIndex]);
  end;
Mais je l'ai posté vide ici car le listage des liens ne marche pas encore!