VPF::Кнопки прокрутки - Форум программистов

SAVANE

Дата 28.4.2008, 20:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

Помогите пожалуйста.
Ситуация до крику тупая. Написал програмулинку оттестировал все классно. Но сдох винт Востановить никто не взялся.
Програму переделал за исключением одного момента не могу вспомнить никак.
Нужно чтоб в Webbrowser отображал кнопки если вся страница не умещается на экране.
Кнопки типа вверх и вниз. По нажатию этих кнопок должна прокручиваться страница типа Scrolbar.
Если страница умещается кнопки прокрутки ищезают. Кнопки обычные Tbutton
Все это делаю чтобы удобно было пользоватся точскрином.
Буду очень благодарен.

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

Be not afraid of growing slowly, be afraid only of standing still!

SAVANE

Дата 3.5.2008, 21:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Решил сам!!!!
Можно

Код


MsT:=IHTMLDocument2(WebBrowser1.Document).body.getAttribute('scrollHeight',0)-IHTMLDocument2(WebBrowser1.Document).body.getAttribute('clientHeight',0);
   if OY<round(mst) then
        begin
        OY:=OY+2;
        IHTMLDocument2(WebBrowser1.Document).body.setAttribute('scrollTop',OY,0);
        Application.ProcessMessages;
        sleep(5);
        SButton57.Enabled:=true;
        end
        Else
        begin
        sButton56.Enabled:=False;
        timer2.Enabled:=false;
        end;
   if sButton56.Down=false then timer2.Enabled:=false;

Прокрутка вниз. if OY<round(mst) then Условием проверяем конец страницы

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

Be not afraid of growing slowly, be afraid only of standing still!

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