网页中的按钮怎样触发delphi中的事件

 我来答

1个回答

#热议# 为什么有人显老，有人显年轻？

tc...8@163.com
2017-06-17 · 超过204用户采纳过TA的回答

知道小有建树答主

回答量：396

采纳率：0%

帮助的人：306万

我也去答题访问个人页

关注

展开全部

注意，需要uses ActiveX;

另外，附上测试用的test.htm 如下：

HTML code
<html><head><title>test</title></head><body><form name="F1" method="POST" action="c:\test.htm"><p><input type="text" name="T1" size="20"><input type="button" value="按钮" name="B3" onclick="alert('B3 be Clicked!')"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p></form></body></html>

Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.WebBrowser1.Navigate('c:\test.htm');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('F1',0).submit; {提交}
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('T1',0).value := Self.Edit1.Text; {填充}
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('B3',0).click; {点击}
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('F1',0).reset; {重置}
end;

本回答由提问者推荐