Trykke på knap på en hjemmeside

function SubmitForm(WebBrowser: TWebBrowser; SubmitButton: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;

  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    Exit;

  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
        if FormItem.Item(j).Value = SubmitButton then
        begin
          FormItem.Item(j).click;
          Result := True;
        end;
      except
        Exit; // ikke pænt
      end;
    end;
  end;
end;

Og du bruger den ('update' er så navnet på knappen)...

  SubmitForm(WebBrowser1, 'update');

Jeg synes ikke jeg kan finde navnene på knapperne når jeg højreklikker? Tag fx her på eksperten

Den hedder "action" for nedenstående "Send" knap

ellers så lav en simpel hjemmeside med 1 knap på - så finder du hurtigt ud af det.

hmm.. den simpleste side jeg lige kunne komme på var www.studienet.dk, og der kan jeg ikke se at knappen hedder noget

Det er et stykke tid siden jeg har benyttet den - måske er det den viste tekst på knappen - ser sådan ud i koden - prøv "Log ind" som værdi til SubmitButton.

Nej, det ser desværre ikke ud til at virke med navnet

Hmm, kan det være muligt at det ikke er alle hjemmeside som dette virker på?