【Delphi Multi-Device Application】 ListBox 自訂 ListBoxItem

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.ShowScrollBars := False;
  ListBox1.AniCalculations.Animation := True;
  ListBox1.AniCalculations.Averaging := True;
  ListBox1.AniCalculations.BoundsAnimation := True;
  ListBox1.AniCalculations.TouchTracking := [ttVertical];
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var lbItem:TListBoxItem;

  frmItem:TFrame2;

begin

  lbItem := TListBoxItem.Create(Self);

  frmItem := TFrame2.Create(Self);

  frmItem.Parent := lbItem;

  frmItem.Name := 'frmItem_'+FormatDateTime('HHNNSSZZ', Now);

  lbItem.Height := frmItem.Height;

  frmItem.Align := TAlignLayout.alClient;

  lbItem.Parent := ListBox1;

end;