procedure TForm1.Button1Click(Sender: TObject);

const DetailStr: array[..] of String =

(''

,'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz'

,'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ'

);

var i, r: Integer;

    Item1: TListViewItem;

begin

     for i:= to  do

     begin

          Item1 := ListView1.Items.Add;

          r := Random();

          Item1.Detail := DetailStr[r].Substring(, Random(DetailStr[r].Length));

          Item1.Text := i.ToString;

     end;

end;

procedure TForm1.ListView1UpdateObjects(const Sender: TObject;

  const AItem: TListViewItem);

var R: TRectF;

begin

     if (AItem.Objects.DetailObject <> nil) and

        (AItem.Objects.DetailObject.Text <> '') then

     begin

          // 计算文字显示的区域

          R := RectF(, , AItem.Objects.DetailObject.Width, );

          ListView1.Canvas.MeasureText(R,

            AItem.Objects.DetailObject.Text,

            AItem.Objects.DetailObject.WordWrap,

            [], TTextAlign.Leading, TTextAlign.Leading);

          // 设定高度

          AItem.Height := Trunc(R.Height);

     end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var R: TRectF;

begin

     R := ListView1.GetItemRect(ListView1.Items.Count - ); // 取得最后一项的真实区域 (不等高也能计算)

     ListView1.ScrollViewPos := R.Bottom; // 卷到最后

end;