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

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

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

---

← →
Monk ©   (2005-09-08 15:06) [6]

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

---

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

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



Память: 0.46 MB
Время: 0.039 c