scrollBox scrollen mit drag and drop ?

[himitsu]

die ScrollBox hat doch bestimmt ein OnMouseMove?
dann prüf dort einfach, ob sich der Mauszeiger außerhalb der Box befindet und Scroll entsprechend.
Vermutlich mußt'e dann aber auch noch im OnMouseMove der Komponenten innerhalb der ScrollBox prüfen.

[add]
'ne ScrollBox1 wird benötigt und irgendwelche Komponenten in dieser Box

Delphi-Quellcode:

// allen Komponenten in der ScrollBox diese Prozedur für OnMouseMove zuweisen
Procedure TForm1.ScrollBox1ComponentMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  Var P: TPoint;

  Begin
    If not (Sender is TControl) Then Exit;
    P.X := X;
    P.Y := Y;
    P := TControl(Sender).ClientToParent(P, ScrollBox1);
    ScrollBox1.OnMouseMove(Sender, Shift, P.X, P.Y);
  End;

// und diese Prozedur für ScrollBox1.OnMouseMove 
Procedure TForm1.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  Function Comp(i, min, max: Integer): Integer;
    Begin
      If      i < min Then Result := 1
      Else If i > max Then Result := -1
      Else                 Result := 0;
    End;

  Var R: TRect;

  Begin
    {}Caption := Format('%s > %d:%d', [Sender.ClassName, X, Y]);

    R := ScrollBox1.ClientRect;
    ScrollBox1.ScrollBy(Comp(X, R.Left, R.Right) * 1, Comp(Y, R.Top, R.Bottom) * 1);
  End;

hier wird allerdings nur gescrollt, wenn sich der Mauszeiger bewegt
und die Grenzen der ScrollBox solltest du auch noch einbauen (hier kann man noch unbegrenzt sonstwohin scrollen)