![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Размер формы < размера компонента [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