| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Макс Т. ©   (2005-04-26 09:16:00) 

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

---

easy   (2005-05-31 12:53:00) [1]

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;

---

Sergey KoT   (2005-05-31 02:09:00) [2]

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

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

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

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

---

Макс Т.   (2005-04-26 13:05:00) [3]

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

---

easy   (2005-04-26 09:40:00) [4]

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

---

Наверх