unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    SpinEdit1: TSpinEdit;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ListBox1Data(Control: TWinControl; Index: Integer;
      var Data: String);
  private
    { Private 宣言 }
    FTextDataList : TStringList;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  項目(Item)を格納するStringListを用意
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  FTextDataList := TStringList.Create;
end;

//=============================================================================
//  項目(Item)を格納したStringListを解放
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  FreeAndNil(FTextDataList);
end;

//=============================================================================
//  通常のListBox
//  SpinEditで指定した数だけItemに値をセット
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  ListBox1.Style := lbStandard;
  ListBox1.Items.Clear;

  FTextDataList.Clear;
  for i := 0 to SpinEdit1.Value do begin
     FTextDataList.Add(Format('    %.6d',[i]));
     Application.ProcessMessages;
  end;

  ListBox1.Items.BeginUpdate;
  try
    ListBox1.Items.Assign(FTextDataList);
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

//=============================================================================
//  仮想TListBox
//  TSpinEditで指定した数だけSL(TStringList)に値をセット
//  文字列や画像の画面の描画には時間がかかる
//  そこで実際に見える部分だけをOnDataイベントで表示するようにする
//  これが仮想TListBox
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  ListBox1.Style := lbVirtual;
  ListBox1.Items.Clear;

  FTextDataList.Clear;
  for i := 0 to SpinEdit1.Value do begin
     FTextDataList.Add(Format('    %.6d',[i]));
     Application.ProcessMessages;
  end;
  //データ数を設定するとOnDataイベントが発生して描画が行われる
  ListBox1.Count := FTextDataList.Count - 1;
end;

//=============================================================================
//  TListBoxのOnDataイベント処理
//  TListBoxの項目の表示が必要な時に呼出される
//  表示しない項目部分では発生しない
//=============================================================================
procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: String);
begin
  Data := FTextDataList[Index];
end;

end.