Question

如何实现网页的二次点击 delphi

程序打开一个新网页后 如何实现点击新开网页的链接
实现二次点击？
delphi7.0

Answer 1

{提取网页所有链接地址}
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear;
for i := 0 to WebBrowser1.OleObject.document.anchors.Length - 1 do
ListBox1.Items.Add(WebBrowser1.OleObject.document.anchors.item(i).href);
end;

{提取网页所有链接文本}
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear;
for i := 0 to WebBrowser1.OleObject.document.anchors.Length - 1 do
ListBox1.Items.Add(WebBrowser1.OleObject.document.anchors.item(i).innerText);
end;

{模拟点击指定的链接}
procedure TForm1.Button3Click(Sender: TObject);
begin
// WebBrowser1.OleObject.document.anchors.item(0).click; {假如是第一个链接}
if ListBox1.ItemIndex <> -1 then
WebBrowser1.OleObject.document.anchors.item(ListBox1.ItemIndex).click;

ListBox1.Clear;
end;