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

← →
heckfy1 (2005-06-23 12:35) [0]

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

← →
heckfy1 (2005-06-23 12:43) [1]

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

← →
begin...end © (2005-06-23 12:43) [2]

WM_VSCROLL + WM_HSCROLL + F1

← →
begin...end © (2005-06-23 12:46) [3]

> heckfy1 (23.06.05 12:43) [1]

SetScrollInfo или ScrollWindow

← →
heckfy1 (2005-06-23 12:50) [4]

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

> 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

Размер формы < размера компонента Найти похожие ветки