Текущий архив: 2004.03.28;
Скачать: CL | DM;
Вниз
Как перехватить сообщение при прокрутке колеса мыши? Найти похожие ветки
← →
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
← →
Ega23 © (2004-03-04 13:45) [6]Тебе нужен компонент 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"а
← →
YuRock © (2004-03-04 13:46) [7]> Ega23 © (04.03.04 13:41) [5]
> У TStringGrid нет Event"а OnMowseWheelUp и OnMowseWheelDown
А ты думаешь я руками писал этот пример? Я на форме два раза мышкой тыкнул 2 раза. По-крайней мере в D6 есть.
← →
Ega23 © (2004-03-04 13:54) [8]В D5 такого нет. У TForm - есть, а у TStringGrid - нет.
Страницы: 1 вся ветка
Текущий архив: 2004.03.28;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.029 c
