TWebBrowser и курсор ввода

← →
Макс Т. (2005-04-26 09:16) [0]

Приветствую. У меня загружена в TWebBrowser страница с формой. Подскажите пожалуйста как узнать находится ли курсор ввода в поле для ввода текста (меcтные TEdit и TMemo:)), или он находится где то в другом месте на странице (в этом случае самого курсора ввода и не видно, но он есть:))

← →
easy © (2005-04-26 09:40) [1]

var tn:string; begin tn:=WebBrowser1.OleObject.document.activeElement.tagName; if (tn="INPUT") or (tn="TEXTAREA") then ..... end;

← →
Макс Т. (2005-04-26 13:05) [2]

Ух ты! спасибо *побежал проверять:)*

← →
Sergey KoT (2005-05-31 02:09) [3]

Доброе время суток. Похожая проблема: есть страница с формой, на форме тэг select (время от времени динамически меняется). Нужно прочитать все возможные значения и их количество, для дальнейшего выбора нужного и submit`а.
Делаю следующие:

... перебор, нахожу select c нужным name"ом ...

WebBrowser.OleObject.Document.forms.Item(I).Item(j).ххх

ххх - что только не пробывал, и subitem, и optinosvalue...
Help молчит :(
Подскажите пожалуйста, как решить эту задачу?

procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate("http://delphimaster.ru/search.html"); Memo1.Clear; end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var coll:OleVariant; i:integer; begin memo1.Lines.Add("Text / value"); coll:=WebBrowser1.OleObject.document.all.tags("SELECT"); if (coll.length>0) then for i:=0 to coll.item(0).options.length-1 do memo1.Lines.Add(coll.item(0).options.item(i).text+ " / "+coll.item(0).options.item(i).value); end;

TWebBrowser и курсор ввода Найти похожие ветки