リンクをクリック (ID:39629)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 そういった内容はMSHTML.pas内にあります。 procedure TForm1.Button4Click(Sender: TObject); //uses MSHTML var i:Integer; HTMLDoc:DispHTMLDocument; HTMLCollection:IHTMLElementCollection; HTMLElement:IHTMLElement; begin HTMLDoc:= WebBrowser1.Document as DispHTMLDocument; HTMLCollection := HTMLDoc.links; for i := 0 to (HTMLCollection.length -1) do begin HTMLElement := HTMLCollection.item(i, 0) as IHTMLElement; Memo1.Lines.Add(HTMLElement.InnerText); end; end;