一つのフォームに複数のボタン(WebBrowser)

解決

peco 2007-01-21 03:25:33 No: 24543

WebBrowserに表示しているページのボタンをプログラム側で押す場合に

var
HTMLdoc : IHTMLDocument2;
HTMLInputElement : iHTMLInputElemenet
begin

HTMLdoc := Webbrowser1.document as IHTMLDocument2;
HTMLInputElement := HTMLDoc2.All.Item ('ボタンの名前',0) as iHTMLInputElement;
HTMLButtonElement.form.submit;

と書けば押せると思うのですが、
一つのフォームに対して複数のボタンが存在し、押されたボタンのnameの値によって処理を分けているページに対してこれをやろうとすると、片方のボタンの処理しかできなくなってしまいます。
おそらくソースの一番上に書いてあるボタンの処理が走ります。

このとき、指定したボタンの処理を走らせるにはどのようにすればよろしいでしょうか？ご教授願います。

環境
Delphi2005,WindowsXP professional

peco 2007-01-21 04:41:59 No: 24544

[自己解決]

これでできました。
お騒がせしてすみませんでした。

var
HTMLdoc : IHTMLDocument2;
HTMLElement : IHTMLElement;
begin

HTMLdoc := Webbrowser1.document as IHTMLDocument2;
HTMLElement := HTMLDoc.All.Item ('ボタンの名前',0) as IHTMLElement;
HTMLElement.click;