| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Monk ©   (2005-09-08 09:42:00) 

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

---

Monk   (2005-09-08 15:06:00) [1]

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

---

ShiFT   (2005-09-08 14:40:00) [2]

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;

---

MBo   (2005-09-08 14:29:00) [3]

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

---

Monk   (2005-09-08 14:06:00) [4]

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

---

Monk   (2005-09-08 10:12:00) [5]

to MBo: Спасибо

---

MBo   (2005-09-08 10:00:00) [6]

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;

---

Наверх