Buscar por:

TWebBrowser como clicar no checkbox do HTML

Código

{LINCOLN MENDONÇA FERREIRA - prudenlex@hotmail.com}

procedure TFrmCND.ClicaChekBox(var WebBrowserX:TWebBrowser; botao:string; valor:string);

var doc,FormItem: Variant; Field: Variant; FieldName: String; H,I,J: Integer;

begin

 try

 for H := 0 to webbrowserX.OleObject.Document.Frames.Length -1 do

  begin

   doc:=WebBrowserX.OleObject.Document.Frames.item(H).document;

    for I := 0 to doc.forms.Length - 1 do

     begin

      FormItem := doc.forms.Item(I);

       for j := 0 to FormItem.Length - 1 do

        begin

         Field := FormItem.Item(j);

         FieldName := Field.Name;

         if (FieldName = botao) and (field.value=valor) then

           Doc.forms.item(i).elements.item(j).checked:=true;

        end;

     end;

  end;

 except

  MessageDlg('Erro ao clicar no botão: '+botao , mtError, [mbOK],0);

 end;

end;

//Usar 

ClicaChekBox(WebBrowser2,'OPC2','4');