Invoke button click on Twebbrowser

[RyanEK]

Hi All,

I have a simple form that loads a web page using TWebbrowser. The form has several buttons. Is it possible to do a button click in code?

thanks!
Ryan

 

[RyanEK]

Ahh I found it...

procedure TForm1.Button4Click(Sender: TObject);
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WB.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'INPUT') and
(ovElements.item(i).type = 'SUBMIT') and
(ovElements.item(i).Value = 'Recent Charges') then
ovElements.item(i).Click;

end;