ListBox1

[DM2005]

Voy a verificar si es lo que necesito.
gracias

[DM2005]

hola de nuevo, sabes que carga bien la pagina,
//ListBox1.Selected [ 1 ] := true;
WebBrowser1.Navigate(ListBox1.items.strings[1]);
pero mi idea es que con un buttom, el pase para la siguinte pagina, y si repito el procedimiento, asignandole otro item
WebBrowser1.Navigate(ListBox1.items.strings[2]);
el recorre todo y me trae la ultima, sera que me esta faltando algo.

procedure TFormForm01.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('C:\Arquivos de programas\Cyber\Access\IParquivo.txt');
end;



procedure TFormForm01.SpeedButton2Click(Sender: TObject);
begin
//ListBox1.Selected [ 1 ] := true;
WebBrowser1.Navigate(ListBox1.items.strings[1]);
//ListBox1.Selected [ 2 ] := true;
WebBrowser1.Navigate(ListBox1.items.strings[2]);
end;

creo que es asi, gracias

[[Delphius]]

Pues, a ver... quieres que al pulsar un boton que se dirija a la siguiente página, que corresponde al siguiente item.

Esto lo puedes conseguir incrementando el valor de ItemIndex cada vez que se pulsa el botón, recuerda que se debe verificar que no se sobrepase el límite:

Código Delphi [-]
procedure TFormForm01.SpeedButton2Click(Sender: TObject);
begin
  with ListBox1.Items do
    begin
      if ItemIndex < Count-1
         then ItemIndex := ItemIndex + 1
         else ShowMessage('Se ha llegado al último');
    WebBrowser1.Navigate(strings[ItemIndex]);
    end;
end;

Saludos,

PD: Utiliza las etiquetas [ DELPHI ] [ /DELPHI ] (sin espacios), para escribir el código... verás que es más legible el texto que introduzcas allí.

[DM2005]

Me sirvio, gracias