WebBrowser Link Sıra No

[hido]

Selam WebBrowser Link Sıra No Numarasını Nasıl Alabilirim?

Kod: Tümünü seç

var
  i: Integer;
begin
  for i := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do
  begin
showmessage( ????);
  end;
end;

[brs]

Bu kod ile aranan link clik işlemini yapmayı sağlıyor satır numarasını nasıl alabilirsin bilmiyorum kolay gelsin

Kod: Tümünü seç

procedure TForm6.Button1Click(Sender: TObject);
var
  i: Integer;
  UrlAra: Boolean;
begin
  try
    UrlAra := False;
    with Form2.WebBrowser1 do
    begin
      for i := 0 to OleObject.Document.links.Length - 1 do
      begin
        if TrimLeft(OleObject.Document.links.Item(i)) = Edit2.Text then
        begin
          [b]OleObject.Document.links.item(i).Click;[/b] 
          UrlAra := True;
          Break;
        end;
      end;
      if Not UrlAra then
      begin
        SayfaBulunamadi(Sender);
      end;
    end;
  except
    Application.MessageBox('Arama Sırasında Hata Oluştu!', 'Uyarı!',
      MB_Ok or MB_ICONQUESTION);
  end;
end;

[hido]

İlgilendiğiniz için teşekkür ederim, listbok alsam kolayda almadan webbrowser da linkin sıra numarasını ulaşmam lazım

[SimaWB]

"WebBrowser Link Sıra No Numarasını" ne demek?

[hido]

Aranan linkin Kacıncı sırada oldugunu bulmak istiyorum

[SimaWB]

O zaman brs'ın gönderdiği örnek koddaki döngü değeri aradığınız değil mi?

[hido]

O zaman brs'ın gönderdiği örnek koddaki döngü değeri aradığınız değil mi?

Hocam evet denedim ama ben aranan linkin kaçıncı sırada olduğunu bulmak istiyorum...