Получить доступ к радио кнопкам в TWebBrowserDelphi , Интернет и Сети , БраузерПолучить доступ к радио кнопкам в TWebBrowser
Оформил: DeeCo 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; Статья Получить доступ к радио кнопкам в TWebBrowser раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |