suche Scrollbox mit versetzten Scrollbars

[himitsu]

Setz doch einfach 2 Panel's ineinander.

Auf das Innere kommt dann das Zeug, was reinsoll.

Und mit 2 Scrollbars kannst du dann das innere Pannel verschieben.


[add]

Delphi-Quellcode:

// Panel1:
//   BevelOuter   = bvNone
//   BorderSingle = bsSingle
//   Caption      = ''
//
// Panel2:
//   BevelOuter   = bvNone
//   Caption      = ''
//
// ScrollBar2:
//   Kind         = sbVertical

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    ScrollBar1.Max := Panel2.Width;
    ScrollBar1.PageSize := Panel1.Width - 4;
    ScrollBar1.Position := -Panel2.Left;
    ScrollBar2.Max := Panel2.Height;
    ScrollBar2.PageSize := Panel1.Height - 4;
    ScrollBar2.Position := -Panel2.Top;
  End;

Procedure TForm1.ScrollBar1Change(Sender: TObject);
  Begin
    Panel2.Left := -ScrollBar1.Position;
  End;

Procedure TForm1.ScrollBar2Change(Sender: TObject);
  Begin
    Panel2.Top := -ScrollBar2.Position;
  End;