学习了下网上一些文档自己打代码试了下,现在贴出代码以及说明供大家参考
1.HTML代码如下
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Test
</title>
</head>
<body>
输入内容:<input id="P1">
<span id="msg" style="DISPLAY: none" οnclick="alert(this.innerText)"></span>
</body>
</html>
2、界面
3、后台代码 记得引用 MSHTML单元
implementation
uses MSHTML;
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
Ele :IHTMLElement;
begin