Webbrowser.OleObject.Document.Forms.item(??). in Listbox zeigen

[klaus9]

Hallo,

ich würde gerne in einer Listbox mir aus einer Webseite alle vorhanden Forms raussuchen lassen, habe mir folgendes zusammengebastelt.

Einmal diese Variante (Habe eine Listbox und einen Button)
procedure TForm1.Button50Click(Sender: TObject);

var
i: Integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document. Links.Item(i));
end;

Hier zeigt er mir alle vorhandenen Links der jeweiligen aufgerufenen Seite, das funktioniert prima.


Jetzt möchte ich aber gerne die Forms einer Seite herrausfinden..

Habe diese Variante zusammengebastelt:

procedure TForm1.Button51Click(Sender: TObject);

var
i: Integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.forms.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document. forms.Item(i));
end;


Jetzt zeigt er mit an beim Aufruf: [Object] und wie oft es vorkommt, ich würde aber gerne die Nummern herrausfinden 01, 02 usw.

Wie kann ich dieses machen ?