Autor Téma: WebBrowser + ListView  (Přečteno 1212 krát)

Offline Kukysh

  • Mladík
  • **
  • Příspěvků: 64
  • Karma: 1
    • Verze Delphi: Delphi 7, Delphi 10.3.3
WebBrowser + ListView
« kdy: 22-09-2012, 15:10:29 »
Poradí mi někdo prosím jak pomocí dvojkliku na řádek v ListView1, kde v Columns[2] je url
navede webbrowser?

Pokoušel sem se to touto špatnou procedurou:
Kód: Delphi [Vybrat]
  1. procedure TForm9.ListView1DblClick(Sender: TObject);
  2. begin
  3. //WebBrowser1.Navigate(ListView1.Columns[2].Text);
  4. end;

Offline < z >

  • Administrátoři
  • Guru
  • *****
  • Příspěvků: 1136
  • Karma: 42
    • Verze Delphi: 7, 2010
Re:WebBrowser + ListView
« Odpověď #1 kdy: 22-09-2012, 17:25:08 »
Columns operuje s temi nadpisky nahore ListView ...

ty potrebujes Items[ i].Subitems[2] ;)

Offline Kukysh

  • Mladík
  • **
  • Příspěvků: 64
  • Karma: 1
    • Verze Delphi: Delphi 7, Delphi 10.3.3
Re:WebBrowser + ListView
« Odpověď #2 kdy: 23-09-2012, 12:08:21 »
Kód: Delphi [Vybrat]
  1. WebBrowser1.Navigate(ListView1.Items.Item[i].SubItems[1]);
Vykazuje chybu: " Undeclared Identifier 'i' "
Potřeboval bych vybrat aktuální dle výberu kurzorem ...

Offline TLama

  • Guru
  • *****
  • Příspěvků: 597
  • Karma: 31
    • Verze Delphi: 7, 2009, XE3
Re:WebBrowser + ListView
« Odpověď #3 kdy: 23-09-2012, 16:04:52 »
Pokud zajistíš, že v každém itemu budou alespoň 2 subitemy, použij tohle:

Kód: Delphi [Vybrat]
  1. procedure TForm1.ListView1DblClick(Sender: TObject);
  2. begin
  3.   if Assigned(ListView1.ItemFocused) then
  4.     WebBrowser1.Navigate(ListView1.ItemFocused.SubItems[1]);
  5. end;
« Poslední změna: 11-12-2012, 15:55:47 od TLama »

Offline Kukysh

  • Mladík
  • **
  • Příspěvků: 64
  • Karma: 1
    • Verze Delphi: Delphi 7, Delphi 10.3.3
Re:WebBrowser + ListView
« Odpověď #4 kdy: 23-09-2012, 17:23:07 »
Díky, funguje to ...