[Gareth]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

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, каким образом я могу это сделать?
Заранее спасибо.