Нашёл тут на форуме пример небольшой.. по его основе набросал код
мне не понятно, как разместить кнопку на панели, или на чем нибудь другом..
Код:
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, каким образом я могу это сделать?
Заранее спасибо.