Gestures für Windows

[Der schöne Günther]

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:
Screenshot 2024-12-05 171204.jpg
https://imgur.com/a/G8BadjN