Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.033 c
1-1079957412
Vadim S_
2004-03-22 15:10
2004.04.11
.NET FAQ Delphi 7.0/8.0


7-1075506145
ИМХО
2004-01-31 02:42
2004.04.11
Работа с Microsoft Outlook


8-1071061474
Yrtimd
2003-12-10 16:04
2004.04.11
Получение звука с микрофона


7-1080318300
Vadim
2004-03-26 19:25
2004.04.11
Перезагрузка


7-1075396868
Stexen
2004-01-29 20:21
2004.04.11
PE Section