示例1(此示例转自ccrun 妖哥):
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
// 切换ListView的显示风格为详细信息
ListView1->ViewStyle = vsReport;
// 清除ListView所有列和行的内容
ListView1->Columns->Clear();
ListView1->Items->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// 添加第一列
TListColumn *lc = ListView1->Columns->Add();
lc->Caption = "第一列";
lc->Width = 120;
// 添加第二列
lc = ListView1->Columns->Add();
lc->Caption = "第二列";
lc->Width = 80;
// 添加第三列
lc = ListView1->Columns->Add();
lc->Caption = "第三列";
lc->Width = 100;
Application->ProcessMessages();
// 修改第二列的标题
ShowMessage("点击确定后修改第二列的标题");
if (ListView1->Columns->Count > 1)
{
lc = ListView1->Columns->Items[1];
lc->Caption = "第二列新标题";
lc->Width = 120;
}
// 添加第一行数据
TListItem *li = ListView1->Items->Add();
li->Caption = "一行一列";
li->SubItems->Add("一行二列");
li->SubItems->Add("一行三列");
// 添加第二行数据
li = ListView1->Items->Add();
li->Caption = "二行一列";
li->SubItems->Add("二行二列");
li->SubItems->Add("二行三列");
// 添加第三行数据
li = ListView1->Items->Add();
li->Caption = "二行一列";
li->SubItems->Add("二行二列");
li->SubItems->Add("二行三列");
__fastcall TForm1::TF