procedure TForm26.CheckBoxClick(Sender: TObject); //当你点击chcekBox的时候,会自动改变CheckBox.Checked的值,这是点击操作begin ShowListView(CheckBox.Checked);end;