[Kristofer]

Приветствую всех
имеется компонент Webbrowser, в котором собсно отображается страница.
вопрос: как нажать ссылку в этом окне?
если известно, что она - слово

[Kristofer]

Код:

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: Пользуемся тегами! При рецедиве - бан!

о! че нашел!
да только проблема, не открывается в новой вкладке

[Casper-Hacker]

Сообщение от Kristofer

procedure TForm1.ZoombtnClick(Sender: TObject);
да только проблема, не открывается в новой вкладке

Примерчик вкладок тут.

[095]

Ругается на свойство Document.links.Item(I).InnerText ..
Invalid Variant Operation...