Как перехватить сообщение при прокрутке колеса мыши?

← →
PolarS © (2004-03-04 13:29) [0]

Как сделать, чтобы при прокрутке колеса мыши по StringGrid"у ничего не происходило?

← →
YuRock © (2004-03-04 13:30) [1]

WM_MOUSEWHEEL

или

OnMouseWheel, OnMouseWheelUp, OnMouseWheelDown

← →
Ega23 © (2004-03-04 13:31) [2]

WM_MOUSEWHEEL перехватывать, наверное.

← →
sirius © (2004-03-04 13:35) [3]

Можно с примером? А чтобы совсем ничего не происходило при этом?

← →
YuRock © (2004-03-04 13:38) [4]

Попробуйте:

procedure TfrmMain.StringGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Handled := False; end; procedure TfrmMain.StringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Handled := False; end;

← →
Ega23 © (2004-03-04 13:41) [5]

У TStringGrid нет Event"а OnMowseWheelUp и OnMowseWheelDown

Тебе нужен компонент ApplicationEvents. У него есть событие OnMessage
Вот туда и прописываешь Handled:=True;

procedure TFMain.AppEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if (Msg.message=WM_MOUSEWHEEL) then
begin
Handled:=True;
Exit;
end;
end;

Это вообще заблокируется колёсико. А если добавить
and (Msg.HWND=StringGrid1.Handle), то заблокируется колёсико именно в рамках твоего StringGrid"а

> Ega23 © (04.03.04 13:41) [5]
> У TStringGrid нет Event"а OnMowseWheelUp и OnMowseWheelDown

А ты думаешь я руками писал этот пример? Я на форме два раза мышкой тыкнул 2 раза. По-крайней мере в D6 есть.

В D5 такого нет. У TForm - есть, а у TStringGrid - нет.

Как перехватить сообщение при прокрутке колеса мыши? Найти похожие ветки