VPF::RadioButtons in a TWebbrowser - Форум программистов

Poseidon

Дата 18.5.2005, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133

Код

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

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

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

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

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

    // check radiobutton with value 3. 
    if rbTest.Value = '3' then 
      rbTest.Checked := True; 
  end; 
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »