在项目中TControlList 显示列表数据

本文介绍了如何在Windows应用程序中创建一个使用ControlList控件显示列表数据,ClientDataSet连接本地数据,并配合Image1和两个Label显示详细信息的过程。代码展示了如何操作控件及数据处理技巧。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1. 创建一个Window application 应用,添加组件。(如下图)

   (1) ControlList 控件(显示列表数据)

    (2) ClientDataSet 控件(连接本地数据)

     (3) 放置 image1,(显示图片) 2个label (显示列表数据)

2.编写代码:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Data.DB,
  Datasnap.DBClient, Vcl.ControlList;

type
  TForm2 = class(TForm)
    ControlList1: TControlList;
    fish: TClientDataSet;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    fishSpeciesNo: TFloatField;
    fishCategory: TStringField;
    fishCommon_Name: TStringField;
    fishSpeciesName: TStringField;
    fishLengthcm: TFloatField;
    fishLength_In: TFloatField;
    fishNotes: TMemoField;
    fishGraphic: TGraphicField;
    procedure ControlList1BeforeDrawItem(AIndex: Integer; ACanvas: TCanvas;
      ARect: TRect; AState: TOwnerDrawState);
    procedure fishAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ControlList1BeforeDrawItem(AIndex: Integer; ACanvas: TCanvas;
  ARect: TRect; AState: TOwnerDrawState);
begin
     fish.RecNo:=AIndex+1;
     label1.Caption:=fishcommon_name.asstring;
     label2.Caption:=fishnotes.AsString;
     var ms:=tmemorystream.Create;
     fishgraphic.SaveToStream(ms);
     ms.Position:=8;
     image1.Picture.LoadFromStream(ms);
      ms.Free;
end;

procedure TForm2.fishAfterOpen(DataSet: TDataSet);
begin
  controllist1.ItemCount:=fish.RecordCount;
end;

end.

 3.运行效果:

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值