|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
DBGrid, StringGrid и Mouse Wheel
не подскажете, как можно отключить колесико мышки для некоторых компонентов? в частности интересуют DBGrid и StringGrid. Если для отдельных компонентов это невозможно, то как можно совсем отключить колесико в приложении?
|
#2
|
||||
|
||||
точно не знаю(никогда не делал). Но вот как в моём приложении, которое можно свернуть в трей, обрабатываются клики мышки по иконке:
const WM_MYICONNOTIFY = WM_USER + 123; type TForm1 = class(TForm) ... procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY; ... ... procedure TForm1.WMICON(var msg: TMessage); var P : TPoint; nidata : TNotifyIconData; begin case msg.LParam of WM_LBUTTONDOWN, WM_RBUTTONDOWN: begin GetCursorPos(p); SetForegroundWindow(Application.MainForm.Handle); ... ... end; WM_LBUTTONDBLCLK : begin RestoreMainForm; DeleteTrayIcon(1); SetForeGroundWindow(Application.MainForm.Handle); SetActiveWindow(Application.MainForm.Handle); end; WM_MOUSEMOVE: begin ... ... end; end; Так вот эти WM_LBUTTONDOWN, WM_LBUTTONDBLCLK и тд беруться из юнита Messages. Там же есть WM_MOUSEWHEEL. Вот имхо нада этот WM_MOUSEWHEEL как то сделать в данном случае на DBGrid и StringGrid, так же как у меня на иконке сделано. Хотя может есть способ и попроще. |
#3
|
|||
|
|||
Спасибо за помощь. Я попробую, и если получится - отпишу
|