示例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("二行三列");
//加Application->ProcessMessages()只是为了让窗口处理一下其他的消息,界面上的显示更新一下而已.在有些情况下,窗口内容变化但界面没有刷新时,可以加这么一句.
Application->ProcessMessages();
// 修改第三行的数据
ShowMessage("点击确定后修改第三行的数据");
if (ListView1->Items->Count > 2)
{
li = ListView1->Items->Item[2];
li->Caption = "二行一列新内容";
li->SubItems->Strings[0] = "二行二列新内容";
li->SubItems->Strings[1] = "二行三列新内容";