Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c