Скачать: CL | DM;

Как узнать высоту документа загруженного в TWebBrowser   Найти похожие ветки 

← →
Виктор007   (2007-05-07 19:11) [0]

Здравствуйте. Вожусь с такой проблемой - необходимо определить высоту и ширину загруженной странички при которой не появляются полосы прокрутки. В документации ничего не нашел. Решил уменьшить мерить высоту скроллбаров.
with WebBrowser1 do
  begin
    Height := OleObject.Document.Body.scrollHeight;
    Width := OleObject.Document.Body.scrollWidth;
  end;

Работает превосходно на обычных страницах. Но на "очень длинных" страничках например http://az.lib.ru/a/awdeew_m_w/text_0020.shtml дает неправильные результаты. Так например для вышеотмеченной ссылки возвращает ~32800 пикселей, в то время как сам документ почти в два раза длиннее.

---

← →
Викетор1985   (2007-05-07 19:27) [1]

Хм, странно, оказывается мне не удается увеличить контрол WebBrowser1 выше чем 32767, т.е. я увеличиваю

with WebBrowser1 do
  begin
    Height := 100000;
    ShowMessage(IntToStr(Height));
  end

А получаю теже 32767... кто-нибуль знает как бороться с этим ограничением?

---

← →
Викетор1985   (2007-05-07 19:39) [2]

Ну уж извините за флуд. OleObject.Document.Body.scrollHeight определяет все правильно. Да вот Стандартным WebBrowser1.Height высоту больше чем Integer задать не удается. Посылкой сообщения SendMessage"ом окнам с классами "Shell DocObject View" и  "Internet Explorer_Server"  не помогают. Окно увеличивается, но добавленные области и не думают перерисовываться. С обычной кнопкой такой фокус проходит запросто...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c