VPF::Координаты элемента формы - Форум программистов

BUGOR

Дата 22.11.2006, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: нет
Всего: 16

Есть небезизвестный компонент TWebBrowser, задача перечислить все формы на html странице, так же элементы форм и получить координаты последних(т.е. координаты элементов html формы).

Вот код, который перечилсяет все элементы:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
Document: Variant;
ovE: OleVariant;
i,j:integer;
begin
  Document := WebBrowser1.Document;
  for j := 0 to Document.Forms.Length - 1 do
  begin
    ovE := Document.Forms.Item(j).Elements;
    for i := 0 to ovE.Length - 1 do
    begin
       // Вот тут надо получить координаты
    end;
  end;
end;

Есть свойство clientLeft(ovE.Item(i).clientLeft), казалось бы то, что доктор прописал, но эти свойства вовзращают значения в пределах 3, а мне надо как-то узнать координаты элемента html-формы относительно окна моей программы.

Это сообщение отредактировал(а) BUGOR - 22.11.2006, 15:51

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

December

Дата 22.11.2006, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

суммируй с clientLeft родителя просто

--------------------

Для друзей с винграда - скидки на разработку сайтов

BUGOR

Дата 22.11.2006, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: нет
Всего: 16

А под родителем ты что понимаешь? Если clientLeft формы, которую мы перечилсяем, то там вообще всегда 0 возваращется.

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

December

Дата 22.11.2006, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

держи

Код


function GetElementTop(gEl:IHTMLElement):integer;
var
  pEl:IHTMLElement;
begin
result:=0;
pEl:=gEl;
while Assigned(pEl) and (pEl.tagName<>'HTML') do
  begin
  result:=result+pEl.offsetTop;
  result:=result-(pEl as IHTMLElement2).scrollTop;
  pEl:=pEl.offsetParent;
  end;//while
end;//GetElementTop


function GetElementLeft(gEl:IHTMLElement):integer;
var
  pEl:IHTMLElement;
begin
result:=0;
pEl:=gEl;
while Assigned(pEl) and (pEl.tagName<>'HTML') do
  begin
  result:=result+pEl.offsetLeft;
  result:=result-(pEl as IHTMLElement2).scrollLeft;
  pEl:=pEl.offsetParent;
  end;//while
end;//GetElementLeft

--------------------

Для друзей с винграда - скидки на разработку сайтов

BUGOR

Дата 24.11.2006, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: нет
Всего: 16

December, спасибо тебе огромное. Пожалуй, только на этом форуме встретишь таких модераторов, спасибо ещё раз и естественно +.

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »