Событие нажатия кнопки мыши на строке скроллинга компонентов

← →
Monk © (2005-09-08 09:42) [0]

Подскажите, пожалуйста, как отследить событие нажатия кнопки мыши на строке скроллинга компонентов (типа мемо, список и т.п.)?

← →
MBo © (2005-09-08 10:00) [1]

public
{ Public declarations }
OldProc: TWndMethod;
procedure NewProc(var m: TMessage);

procedure TForm1.FormCreate(Sender: TObject);
begin
OldProc := ListBox1.WindowProc;
Listbox1.WindowProc := NewProc;
end;

procedure TForm1.NewProc(var m: TMessage);
begin
if (m.Msg = wm_vscroll) or (m.Msg = wm_hscroll) then
Caption := IntToStr(GetTickCount);
OldProc(m);
end;

← →
Monk © (2005-09-08 10:12) [2]

to MBo: Спасибо

← →
Monk © (2005-09-08 14:06) [3]

А как теперь отменить стандартное действие компонента? Нужно ведь подменить его своим. А так срабатывает и стандартное действие, и наши команды

← →
MBo © (2005-09-08 14:29) [4]

Ну так не вызывай OldProс, если свои действия нужны.

← →
ShiFT (2005-09-08 14:40) [5]

procedure TForm1.NewProc(var m: TMessage); begin if (m.Msg = wm_vscroll) or (m.Msg = wm_hscroll) then begin Caption := IntToStr(GetTickCount); end else OldProc(m); end;

да, я уже дотумкал. Спасибо

Событие нажатия кнопки мыши на строке скроллинга компонентов Найти похожие ветки