procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem); begin try Item.Caption := 'Line ' + IntToStr(Item.Index); Item.SubItems.Clear; Item.SubItems.Add('2nd column'); Item.SubItems.Add('3rd column'); except { Ignore exceptions } end; end;
ただし仮想リストビューにした場合はListView_SetColumnWidthでLVSCW_AUTOSIZEやLVSCW_AUTOSIZE_USEHEADERを指定することはできません。
0 件のコメント:
コメントを投稿