Manipulation af webbrowser og formfelter?

Har du navnet på feltet i formen ?

Stoney

Nej det er det der er problemet.....:). At indsætte text i felter i en form uden navn...

Jeg fik engang en metode hvormed man kan "tappe" rundt via en knap... den løsning ville også være brugbar :))

Ikke navnet på formen

navnet på FELTET

Stoney

F.eks:
knap1 : webbrowser1.active.tabindex.setfocus := webbrowser1.active.tabindex.setfocus + 1;

men det løser vel i grunde ikke problemet med at sætte tekst ind..suk

ahhh sorry! Ja jeg har navnet på feltet.

function FillForm(WebBrowser: TWebBrowser; fieldname:String; value:String) : Boolean;
var
i,j:Integer;
FormItem:Variant;
begin
Result:=false;
//no form on document
If WebBrowser.OleObject.Document.all.tags('FORM').length=0 then
begin
exit;
end;
//count forms on document
for I:=0 to WebBrowser.OleObject.Document.forms.Length -1 do
begin
FormItem := WebBrowser.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).Name=fieldname then
begin
FormItem.Item(j).Value:=value;
Result:=true;
end;
except
exit;
end;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FillForm(webbrowser1,'feltnavn','feltværdi');
end;

Stoney

*almost on my knees* Thanks Dear Delphi God :))))))))))

Selv tak