autoscroll в TPanel

[mavlon_m]

Здравствуйте!
Можно ли установит autoscroll в TPanel?

[artemavd]

Может Вас устроит создание панелей в двумя полосами слева, которые можно двигать

procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolBar1.DockSite := true;
  ToolBar1.DragKind := dkDock;
  ToolBar1.DragMode := dmAutomatic;
end;

procedure TForm1.ControlBar1DockOver(Sender: TObject;
  Source: TDragDockObject; X, Y: Integer; State: TDragState;
  var Accept: Boolean);
begin
  Accept := (Source.Control is TToolBar);
  if Accept then
    with Source.DockRect do
    begin
      TopLeft := ControlBar1.ClientToScreen(ControlBar1.ClientRect.TopLeft);
      Right := Left + Source.Control.Width;
      Bottom := Top + Source.Control.Height;
    end;
end;

А вообще, насколько мне известно, то в Panel нельзя создать autoscroll. А можно поинтересоваться зачем Вам это?