перехватываю 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 но дальше думаю разберешся

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