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

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

Размер формы < размера компонента [WinXP]


heckfy1 ©   (2005-06-23 12:35:00) 

На форме лежит панель, её высота больше чем форма при этом у формы появляутся скролбар.
Такой вопрос как отловить скролинг этого скролбара ???


begin...end   (2005-06-23 12:54:00) [1]

> heckfy1   (23.06.05 12:50) [4]

type
 TForm1 = class(TForm)
 ...
 private
   procedure WMVScroll(var Message: TMessage); message WM_VSCROLL; // вертикальный скроллинг
 ...
 end;

...

procedure TForm1.WMVScroll(var Message: TMessage);
begin
 inherited;
 Caption := 'Ура, товарищи!'
end


heckfy1   (2005-06-23 12:50:00) [2]

как программно сдвинуть понял а как отловить нет.
киньте процедурку срабатывающую при скролинге формы.


begin...end   (2005-06-23 12:46:00) [3]

> heckfy1   (23.06.05 12:43) [1]

SetScrollInfo или ScrollWindow


heckfy1   (2005-06-23 12:43:00) [4]

и как программно его (скроллбар) можно сдвинуть??
Подскажите пожалуста!!!


begin...end   (2005-06-23 12:43:00) [5]

WM_VSCROLL + WM_HSCROLL + F1


Наверх

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