스크롤박스안에 있는 메모를 선택해서 마우스 움직였을 때 스크롤 되게 하는 법

    FMouseDown: Boolean; // Mouse 가 눌렸는지 확인

    FMouseDown_Y: Single; // Mouse Down 되었을 때의 Y 의 값

procedure TfrmMain.Memo1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Single);

begin

  FMouseDown := True;

  FMouseDown_Y := Y;

end;

procedure TfrmMain.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Single);

begin

  if FMouseDown then

    VertScrollBox1.ViewportPosition := PointF(X, VertScrollBox1.ViewportPosition.Y + FMouseDown_Y - Y);

end;

procedure TfrmMain.Memo1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Single);

begin

  FMouseDown := False;

end;

- 이상 -