Подключить отдельный ScrollBar к ListBox.

[werrey]

Здравствуйте.
Подскажите пожалуйста, как подключить отдельный компонент ScrollBar к ListBox, чтобы он работал синхронно уже со встроенным скроллом в ListBox?
Скролл вертикальный.

Буду признателен Вам за ответы.

[chertovich]

Кладете, на форму компонент

unit Map;

interface

uses
  Windows, SysUtils, Classes, Controls, Forms, Graphics, Messages;

type
  TMap = class(TScrollingWinControl)
  private
    FCanvas: TControlCanvas;
    FOnPaint: TNotifyEvent;
  protected
    procedure PaintWindow(DC: HDC); override;
    procedure Paint; dynamic;
  public
    constructor Create(AOwner: TComponent); override;
    property Canvas: TControlCanvas read FCanvas;
  published
    property AutoScroll;
    property Align;
    property Color;
    property TabOrder;
    property TabStop;
    property AlignDisabled;
    property MouseInClient;
    property Brush;
    property DoubleBuffered;
    property ControlCount;
    property Handle;
    property Padding;
    property ParentWindow;
    property Showing;
    property UseDockManager;
    property OnClick;
    property OnMouseMove;
    property OnMouseDown;
    property OnMouseUp;
    property OnKeyPress;
    property OnKeyDown;
    property OnKeyUp;
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('AbleBaseBuild', [TMap]);
end;

{ TMap }

constructor TMap.Create(AOwner: TComponent);
begin
  inherited;
  FCanvas := TControlCanvas.Create;
  FCanvas.Control := Self;
  ControlStyle := ControlStyle + [csAcceptsControls];
end;

procedure TMap.Paint;
begin
  if Assigned(FOnPaint) then FOnPaint(Self);
end;

procedure TMap.PaintWindow(DC: HDC);
begin
  FCanvas.Lock;
  try
    FCanvas.Handle := DC;
    try
      FCanvas.UpdateTextFlags;
      Paint;
    finally
      FCanvas.Handle := 0;
    end;
  finally
    FCanvas.Unlock;
  end;
end;


end.

Предварительно его установив.
На него кладете ваш ListBox (или что угодно).
Свойство ListBox.Align устанавливаете в alClient.
У компонента Map1 свойство HorzScrollBar.Range например в 1000.
HorzScrollBar.Tracking в True

И получаете нечто:

[werrey]

Спасибо конечно, но ничего не понял, кроме того как кинуть ScrollBar на форму)

Идея такая, что у меня уже установлен компонент на делфи ( ScrollBar), и его нужно подключить к ListBox, чтобы он работал также как и встроенный в ListBox-е.