PROSAGA码农传奇-pascal-删除 Delphi FMX 上 TListView 的分隔线

删除 Delphi FMX 上 TListView 的分隔线

作者: 糖果
发布时间: 2025-03-10 11:42:42 (2天前)

您是否尝试过使用“DynamicAppearance”模式？但是您必须手动编写代码，在“结构”部分添加图像和文本字段，并在“onUpdateObjects”事件中管理所有内容。像这样：

procedure TForm1.FormCreate(Sender: TObject);
      var Voce : TListViewItem;
    begin
          Voce := ListView1.Items.Add;
          Voce.Data['Text3'] := 'pippo 1';
    
          Voce := ListView1.Items.Add;
          Voce.Data['Text3'] := 'pippo 2';
    end;
    procedure TForm1.ListView1UpdateObjects(const Sender: TObject;                                 const AItem: TListViewItem);
      var ImageItem : TListItemImage;
          TextItem1 : TListItemText;
    begin
          ImageItem := AItem.Objects.DrawableByName('Image2') as TListItemImage;
          TextItem1 := AItem.Objects.DrawableByName('Text3') as TListItemText;
          If Assigned(ImageItem) Then
             Begin
             ImageItem.Bitmap := ImageList1.Bitmap(TSizeF.Create(16,16),0);
             //ImageItem.PlaceOffset.X := 0;
             //ImageItem.PlaceOffset.Y := 0;
             End;
          If Assigned(TextItem1) Then
             Textitem1.TextColor := claRed;
    end;
在“ImageList1”中有一个简单的白色图像。