[Gareth]

Нашёл тут на форуме пример небольшой.. по его основе набросал код
мне не понятно, как разместить кнопку на панели, или на чем нибудь другом..

Код:

  private
    Flist: TObjectList;
    procedure b_click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  xTag: Integer;

implementation

{$R *.dfm}

procedure TForm1.b_click(Sender: TObject);
begin
  xTag := (Sender as TsSpeedButton).Tag;
  ShowMessage(IntToStr(xTag));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Flist := TObjectList.Create(True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Flist);
end;

procedure TForm1.sSpeedButton1Click(Sender: TObject);
var
  b: TsSpeedButton;
begin
  b := TsSpeedButton.Create(nil);
  b.Parent := Self; // пытаюсь указать TPanel;,  ругается Incompatible types: 'TWinControl' and 'class of TPanel'
  b.Caption := 'aaaa';
  b.Height := 20;
  b.Align := alTop;
  b.OnClick := b_click;
  b.Tag := Flist.Add(b);
end;

Допустим я хочу разместить кнопки на scrollbox`e, каким образом я могу это сделать?
Заранее спасибо.