al final e conseguido solucionarlo de esta manera:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
FormItem: Variant;
begin
//Result := False;
//no form on document
if WebBrowser1.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Value = 'Login' then
begin
FormItem.Item(j).Click;
//Result := True;
end;
except
Exit;
end;
end;
end;
end;
Gracias de todos modos!!!
|