김승형 wrote:

> 델파이 6.0 쓰는데요, 리치에디트 박스에서 원래 자동적으로 휠마우스 스크롤이 가능하잖아요.

>

> 그런데 그 기능을 없애구 싶은데요...

>

> 어떻게 해야하는지 난감하군요...

>

> 고수님들의 가르침을 기다립니다.

///////////////////////////////////////////////////////////////////////////////

마우스 휠이 방향키 역할만하게 한것입니다.

procedure TForm1.RichEdit1MouseWheelDown(Sender: TObject;

Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

begin

SendMessage(RichEdit1.Handle,WM_KEYDOWN,40,0);

Handled := True;

end;



procedure TForm1.RichEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;

MousePos: TPoint; var Handled: Boolean);

begin

SendMessage(RichEdit1.Handle,WM_KEYDOWN,38,0);

Handled := True;

end;