Accéder aux Radiobuttons dans un TWebBrowser

uses
MSHTML;

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

// Get a reference to input-control (Radiobutton)
// Referenz auf Eingabe-Control-Element (Radiobutton)
rbTestList := Document.all.item('rating', EmptyParam) as IHTMLElementCollection;

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

// Show a message if radiobutton is checked
// Anzeigen, wenn dieser RadioButton ausgewählt
if rbTest.Checked then
ShowMessageFmt('Der RadioButton mit dem Wert %s' +
' ist ausgewählt!', [rbTest.Value]);
end;

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

// check radiobutton with value 3.
// Wir möchten den RadioButton mit dem Wert "3" aktivieren
if rbTest.Value = '3' then
rbTest.Checked := True;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/11/2004
VisualisationVu 1648 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Internet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur