1,183
社区成员




or i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
webbrowser2.Navigate(Webbrowser1.OleObject.Document.Links.Item(i));
var
iIndex : Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
iIndex := -1;
Timer1.Interval := 10000;
Timer1Timer(nil);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
inc (iIndex);
if iIndex >= ListBox1.Count then iIndex := 0;
if iIndex < ListBox1.Count then WebBrowser2.Navigate(ListBox1.Items[iIndex]);
Timer1.Enabled := True;
end;