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

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

← →
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]

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

---

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

> 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

---

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

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



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