Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Браузер \ Получить доступ к радио кнопкам в 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;

Название: Получить доступ к радио кнопкам в TWebBrowser
Дата публикации: 2004-09-02 (2637 Прочтено)

 
 

 

Page generation 0.027 seconds