Delphi 10.2 移动开发LIstView的问题？急急急-CSDN论坛

⋅Delphi 10.2 移动开发LIstView的问题？急急急 ⋅ClientDataSet1 SQL表自己关联自己报错？请大神指点 ⋅Delphi 10.2 release 时，找不到system.duc ,应该添加哪个路径？ 更多帖子 关注私信空间博客 weixin_43788560 本版专家分：0 结帖率 50%: 放教一下，Delphi 10.2 使用ListView，显示记录，怎么能获得ListView--ItemAppearance--Item--Text1的值？
我用Toggle DesignMode 设计好布局，然后
var
item:TListviewItem;
... ...
      item := listview1.Items.Add;
      item.Data['Text1'] :='客户：'+ClientModule1.ClientDataSet1.FieldByName('KHMC2').AsString;
      item.Data['Text2'] :='ID：'+ClientModule1.ClientDataSet1.FieldByName('ID').AsString;
数据通过循环把数据输入到Listview 后，后期操作某一记录时无法获得该记录的ID值
请问点击某一记录后，如何获得Text2中的ID值？

0 2020-05-23 10:47:28

回复数 1 只看楼主引用举报楼主

⋅Delphi 10.2 移动开发LIstView的问题？急急急 ⋅ClientDataSet1 SQL表自己关联自己报错？请大神指点 ⋅Delphi 10.2 release 时，找不到system.duc ,应该添加哪个路径？ 更多帖子 关注私信空间博客 weixin_43788560 本版专家分：0: procedure TForm1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
  showmessage(ListView1.Items.AppearanceItem[ListView1.ItemIndex].Data['Text1'].AsString);
end;

0 2020-05-23 12:12:15

只看TA 引用举报 #1    得分 0