[gvozdkoff]

есть компонент браузер, по нажатию кнопки в него загружается html файл,

загруженный html файл представляет из себя вопрос с вариантами ответов,
вариант ответа выбирается radiobutton.( правильный ответ может быть только один)
Дальше ,по нажатию кнопки, загружается следующий вопрос.
Так вот, можно ли в браузере отловить вариант правильного ответа(radiobutton checked=true) ??
Или может с помощью других компонент

[NumLock]

да, конечно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

unit Unit1;   interface   uses   MSHTML,   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, OleCtrls, SHDocVw;   type   TForm1 = class(TForm)     WebBrowser: TWebBrowser;     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   uses MSXML2_TLB;   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); var   document: OleVariant;   stringlist: TStringList; begin   WebBrowser.Navigate('about<b></b>:blank');   while WebBrowser.ReadyState<READYSTATE_INTERACTIVE do     Application.ProcessMessages;   stringlist:=TStringList.Create;   try     stringlist.LoadFromFile('test.htm');     document:=WebBrowser.Document;     document.clear;     document.open;     document.write(stringlist.Text);     document.close;     while WebBrowser.ReadyState<READYSTATE_COMPLETE do       Application.ProcessMessages;   finally     stringlist.Free;   end; end;   procedure TForm1.Button1Click(Sender: TObject); var   document: IHTMLDocument2;   forms: IHTMLFormElement;   element: IHTMLElement;   i: Integer;   inputelement: IHTMLInputElement;   s: String; begin   document:=WebBrowser.Document as IHTMLDocument2;   forms:=document.forms.item('test', 0) as IHTMLFormElement;   s:='';   for i:=0 to forms.length-1 do   begin     element:=forms.item(i, '') as IHTMLElement;     if element.tagName='INPUT' then     begin       inputelement:=element as IHTMLInputElement;       if inputelement.type_='radio' then       begin         s:=s+inputelement.value+' ';         if inputelement.checked then s:=s+'is checked'+#13#10         else s:=s+''+#13#10;       end;     end;   end;   ShowMessage(s); end;   end.

http://data.cod.ru/78789
ссылка жива 3 дня!!!

[gvozdkoff]

спасибо, дружище, 2 дня ищу варианты, ничего похожего не находил