关于TListView的OnChange事件的问题 事件的方法中有一个类型为TItemChange的参数,这个参数怎么用啊?能不能给段例子代码?谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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; 又来请教了。关于DLL调用。 定时生成每天的车辆出入记录XML格式,被放入指点文件夹内. 关于数据类型的问题!急! 高分求助!olecontainer焦点问题 基于B/S的考试系统的问题 我再散 菜鸟问问题:有什么办法动态加载一个Frame(来源于自己做的Frame模型)到一个Form中啊 可以用sql 语句遍历树,并更新表吗? 线程的执行??? 不可琢磨的错误!!!!!!!!!!!!!!!!!! statusbar1.Panels[0].Text 和 statusbar1.Panels.Add.Text的區別? 问个多国语言的显示问题
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;