안녕하세요. 최용일입니다.



WM_MOUSEWHEEL 메세지를 무효화시키면 될거 같은데여...



type

TForm1 = class(TForm1)

procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

...

end;



procedure TForm1.WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

begin

Message.Result := 0;

end;



개별적인 컨트롤에 대해서 작동하는지 폼에 대해서 전역적으로 작동하는지... 잘 될려나



모르겠네여... 휠마우스가 없어서 실험은 못해봤네여...



Application전반에 걸쳐서 할려면 Application의 OnMessage이벤트를 이용해야 겠죠...



^^ 항상 즐코하세요...



미키 wrote:

> Application 전반에 걸쳐 마우스 휠을 사용 못하게 하려면 어떻게 해야 하나요

>

> 조언 부탁 드립니다?

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Grids, DBGrids, Db, DBTables;



type

TForm1 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

private

procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}

procedure TForm1.WMMouseWheel(var Message: TWMMouseWheel);

begin

Message.Result := 0;

end;

end.



위와 같이 작성 했더니 작동이 되질 않더라구요



뭐가 잘못된 것인지 잘 모르겠어요 조언 부탁드립니다



procedure TForm1.WMMouseWheel(var Message: TWMMouseWheel);

begin

Message.Result := 0;

end;

end.



이 프로지저 뒷 부분에 message WM_MOUSEWHEEL;를 추가 하면



Unknown device 'Message' 라는 error message가 나오네요





선언부의 procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;



는 위치를 여기저기 옮겨 보았는데도 마찬가지네요









최용일 wrote:

> 안녕하세요. 최용일입니다.

>

> WM_MOUSEWHEEL 메세지를 무효화시키면 될거 같은데여...

>

> type

> TForm1 = class(TForm1)

> procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

> ...

> end;

>

> procedure TForm1.WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

> begin

> Message.Result := 0;

> end;

>

> 개별적인 컨트롤에 대해서 작동하는지 폼에 대해서 전역적으로 작동하는지... 잘 될려나

>

> 모르겠네여... 휠마우스가 없어서 실험은 못해봤네여...

>

> Application전반에 걸쳐서 할려면 Application의 OnMessage이벤트를 이용해야 겠죠...

>

> ^^ 항상 즐코하세요...

>

> 미키 wrote:

> > Application 전반에 걸쳐 마우스 휠을 사용 못하게 하려면 어떻게 해야 하나요

> >

> > 조언 부탁 드립니다?