Текущий архив: 2010.08.27;
Скачать: CL | DM;
Вниз
Обработка скроллирования Найти похожие ветки
← →
shamans (2010-02-27 09:39) [0]Подскажите пожалуйста, как перехватить обработку скроллирования пользователем на форме приложения?
← →
DVM © (2010-02-27 09:42) [1]wm_mousewheel
← →
shamans (2010-02-27 09:57) [2]я имел ввиду кода пользователь берет за полосу прокрутки и тянет ее
← →
DVM © (2010-02-27 10:47) [3]WM_VSCROLL, WM_HSCROLL
← →
shamans (2010-03-11 13:08) [4]пример перехвата подскажите пожалуйста
← →
Омлет © (2010-03-12 09:01) [5]
type
TForm1 = class(TForm)
Memo1: TMemo;
private
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
end;
procedure TForm1.WMHScroll(var Message: TWMHScroll);
begin
Caption := IntToStr(Message.Pos);
inherited;
end;
procedure TForm1.WMVScroll(var Message: TWMVScroll);
begin
Caption := IntToStr(Message.Pos);
inherited;
end;
Страницы: 1 вся ветка
Текущий архив: 2010.08.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
