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

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

IHTMLElement и интерфейсы элементов [D7]


mfender ©   (2006-11-14 16:17:00) 

Здравия желаю!

Есть такое:

var
 Sel: IHTMLSelectionObject;
 n: Integer;
begin
   .....
     for n:=0 to (Sel.createRange as IHTMLControlRange).length-1 do
     begin
       (Sel.createRange as IHTMLControlRange).item(n) as ?????;
     end;


Так вот как узнать, каким интерфейсом далее оперировать с полученным элементом? Можно, конечно, по tagNameопределить:


TAG := ((Sel.createRange as IHTMLControlRange).item(n) as IHTMLElement).tagName;
if tagName = 'IMG' then .... и так далее.


Но, может есть какой-то другой способ?


mfender   (2006-11-14 16:25:00) [1]

Заметил грубую ошибку в своих действиях....


var
 Sel: IHTMLSelectionObject;
 Range: IHTMLControlRange;
 n: Integer;
begin
     Range := Sel.createRange as IHTMLControlRange;
     for n:=0 to Range.length-1 do
     begin
       showmessage((Range.item(n) as IHTMLElement).tagName);
     end;


Но вопрос остаётся прежним.


Наверх

Титульная страница Поиск, карта сайта Написать письмо