후훗~

자료실의 hart님이 만들어주신 미리보기 콤포넌트에다가..

procedure Tfuse_preview.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
   if WheelDelta >= 0 then
   begin
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINELEFT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINELEFT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINELEFT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINELEFT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINELEFT, 0);
   end
   else
   begin
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
       SendMessage(QRPreview1.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
   end;
   Handled := True;
end;

요거 추가하니깐 휠잘먹네염~

근데 눌러 가지고 끌어당기는건 어케 구현할지..흐흐..

제가 왕단순해서 스크롤 속도 빠르게 하려고 저렇게 똑같은 메세지를 5개씩

보냈는데 저런 단순무식한 방법말고는 없을까여...?

아시는분 좀 알려주세염... 언제나 초보 -.- 면하나