リストビューでキャプションを編集モードにするサンプルです。
PF2キーを押すと編集モードになります。
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ListView1->ViewStyle = vsReport;
for (int i=0;i<5;i++){
ListView1->Columns->Add()->Caption = "Field" + IntToStr(i);
}
for (int i=0;i<100;i++){
ListView1->Items->Add()->Caption = i;
ListView1->Items->Item[i]->SubItems->Add("項目0-" + IntToStr(i));
ListView1->Items->Item[i]->SubItems->Add("項目1-" + IntToStr(i));
ListView1->Items->Item[i]->SubItems->Add("項目2-" + IntToStr(i));
ListView1->Items->Item[i]->SubItems->Add("項目3-" + IntToStr(i));
ListView1->Items->Item[i]->SubItems->Add("項目4-" + IntToStr(i));
}
ListView1->Items->Item[0]->Selected=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == VK_F2){
ListView1->Selected->EditCaption();
}
}
//---------------------------------------------------------------------------
DownLoad bcbtips076.lzh 4KB(BCB5)