Twebbrowser, Radiobutton auswählen

[toms]

Hi,

Probiert mal das Folgende:

Delphi-Quellcode:

uses
 MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
  Document: IHTMLDocument2;
  rbTestList: IHTMLElementCollection;
  rbTest: IHTMLOptionButtonElement;
  I: Integer;
begin
  // Referenz auf Dokument
  Document:= WebBrowser1.Document as IHTMLDocument2;

  // Referenz auf Eingabe-Control-Element
  rbTestList:= Document.all.item('rating', EmptyParam)
    as IHTMLElementCollection;

  // Aktuellen Wert auslesen
  for I:= 0 to rbTestList.length - 1 do
  begin
    // Referenz auf i. RadioButton
    rbTest:= rbTestList.item(I, EmptyParam)
      as IHTMLOptionButtonElement;

    // Anzeigen, wenn dieser RadioButton ausgewählt
    if rbTest.checked then
      ShowMessageFmt('Der RadioButton mit dem Wert %s' +
        ' ist ausgewählt!', [rbTest.value]);
  end;

  // Neuen Wert setzen
  for I:= 0 to rbTestList.length - 1 do
  begin
    // Referenz auf i. RadioButton
    rbTest:= rbTestList.item(I, EmptyParam)
      as IHTMLOptionButtonElement;

    // Wir möchten den RadioButton mit dem Wert "3" aktivieren
    if rbTest.value = '3' then
      rbTest.checked:= true;
  end;
end;