Create TListview and TListItem on run time in Delphi

In Delphi, you can create a TListView and add TListItem items at runtime using the following steps:

1. Create a Form:
   Create a new VCL Forms Application in Delphi and drop a TListView component on the form.
2. Add Code to Create TListView and TListItem Dynamically:
   You can use the following code in the form’s unit to create a TListView and add TListItem items dynamically:
   
   Delphi/Pascal

   unit MainForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var MyListView: TListView; MyListItem: TListItem; I: Integer; begin // Create a TListView dynamically MyListView := TListView.Create(Self); MyListView.Parent := Self; MyListView.Align := alClient; MyListView.ViewStyle := vsReport; MyListView.Columns.Add.Caption := ‘Column 1’; // Create and add TListItem items dynamically for I := 1 to 10 do begin MyListItem := MyListView.Items.Add; MyListItem.Caption := ‘Item ‘ + IntToStr(I); MyListItem.SubItems.Add(‘Subitem 1’); MyListItem.SubItems.Add(‘Subitem 2’); // Add more subitems as needed end; end; end.

   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 45 46 47 48 49 50

   unit MainForm;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   MyListView: TListView;   MyListItem: TListItem;   I: Integer; begin   // Create a TListView dynamically   MyListView := TListView.Create(Self);   MyListView.Parent := Self;   MyListView.Align := alClient;   MyListView.ViewStyle := vsReport;   MyListView.Columns.Add.Caption := ‘Column 1’;     // Create and add TListItem items dynamically   for I := 1 to 10 do   begin     MyListItem := MyListView.Items.Add;     MyListItem.Caption := ‘Item ‘ + IntToStr(I);     MyListItem.SubItems.Add(‘Subitem 1’);     MyListItem.SubItems.Add(‘Subitem 2’);     // Add more subitems as needed   end; end;   end.

   
   In this example, clicking the Button1 on the form dynamically creates a TListView with one column and adds ten TListItem items with some subitems.

   Remember to adjust the code based on your specific requirements and customize it as needed for your application. This is a basic example, and you can enhance it with additional features, formatting, and event handling based on your application’s needs.