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

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

перехватываю wm_mousewheel после прокрутки, а как его до этого о [D6, WinXP]

headerr ©   (2004-03-21 18:54:00) 

надо отключить колесо мыши, перехватываю wm_mousewheel  после прокрутки, а как его до этого отключить?

---

Diamond Cat   (2004-03-22 03:59:00) [1]

public
   procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage :=AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
 if Msg.message = WM_mousewheel then
 begin
handled:=true
 end;
конечно это не на API но дальше думаю разберешся

---

Наверх