关于TListView的OnChange事件的问题

Question

事件的方法中有一个类型为TItemChange的参数，这个参数怎么用啊？
能不能给段例子代码？谢谢！

Answer 1

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
   case Change of
     ctText : ShowMessage('Text'); //改变文本
     ctImage: ShowMessage('Image');//改变图片
     ctState: ShowMessage('State');//改变状态
   end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Items[0].Caption:='o';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Items[0].Selected:=True;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  ListView1.Items[0].StateIndex:=1;
end;