Получить доступ к радио кнопкам в TWebBrowser

Советы » Браузер » Получить доступ к радио кнопкам в 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 ausgewahlt if rbTest.Checked then ShowMessageFmt('Der RadioButton mit dem Wert %s' + ' ist ausgewahlt!', [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 mochten den RadioButton mit dem Wert "3" aktivieren if rbTest.Value = '3' then rbTest.Checked := True; end; end;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com