Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

перехватываю wm_mousewheel после прокрутки, а как его до этого о   Найти похожие ветки 

← →
headerr ©   (2004-03-21 18:54) [0]

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

---

← →
Diamond Cat ©   (2004-03-22 03:59) [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 но дальше думаю разберешся

---

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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

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