Определить активный элемент в TWebbrowser

← →
Spose © (2005-08-24 17:53) [0]

Мне надо узнать какой элемент типа Text, TextArea или Password на одной из форм в данный момент активен (или редаектируется, т.е. на нем мигает курсор).

Получить список самих элементов очень просто (в примере в memo1 заносятся значения этих элементов):
var
ovElements: OleVariant;
i,m: Integer;
begin
for m := 0 to Wb.OleObject.Document.forms.Length - 1 do
begin
ovElements := Wb.OleObject.Document.forms.item(m).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = "INPUT") then
if (ovElements.item(i).type = "text")or(ovElements.item(i).type = "password")or(ovElements.item(i).type = "textarea") then
memo1.Lines.Add(ovElements.item(i).Value);
end;
end;

← →
programania © (2005-08-25 22:51) [1]

var ID: IHTMLDocument2; IL: IHTMLElement; ... form1.webBrowser1.Document.QueryInterface(IHTMLDocument2, ID); if ID<>nil then begin IL:=ID.Get_activeElement; if copy(lowerCase(IL.Get_outerHTML),1,9)="<textarea" then begin ...

Определить активный элемент в TWebbrowser Найти похожие ветки