Код:
procedure TForm1.ZoombtnClick(Sender: TObject);
var
link,s:string;
I:integer;
mylink:olevariant;
begin
s:='';
mylink:='';
for I := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do begin
s:=WebBrowser1.OleObject.Document.links.Item(I).InnerText;
if s='next' then mylink := WebBrowser1.OleObject.Document.links.Item(I);
end;
webbrowser1.Navigate(mylink);
end;
Admin: Пользуемся тегами! При рецедиве - бан!
о! че нашел!
да только проблема, не открывается в новой вкладке