Есть небезизвестный компонент 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-формы относительно окна моей программы.
|