Hier einfach ein paar Buttons in eine Scrollbox geworfen.
Delphi-Quellcode:
program Project1;
uses
System.SysUtils,
Vcl.Forms,
Vcl.Controls,
Vcl.WinXPanels,
Vcl.StdCtrls;
begin
const form = TForm.Create(
nil);
const scrollBox = TScrollBox.Create(form);
scrollBox.Parent := form;
scrollBox.Align := TAlign.alClient;
for var buttonIndex := 0
to Pred(100)
do
begin
const button = TButton.Create(scrollBox);
button.Caption := buttonIndex.ToString();
button.
Name := '
button' + button.Caption;
button.Parent := scrollBox;
button.Left := 10;
button.Top := 10 + buttonIndex * 32;
scrollBox.InsertControl(button);
end;
form.ShowModal();
end.
Und hier, wie das ganze als Video aussehen sollte:
https://imgur.com/a/G8BadjN