Определить активный элемент в TWebbrowser [D7]
Spose © (2005-08-24 17:53:00)
Мне надо узнать какой элемент типа 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:00) [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
...
Наверх 
ЧАТ |
Орешник |
|
