当前位置: 源码素材网 » Delphi教程 » 详情页

在Delphi中使用Column属性为ListView动态生成列

  •   时间:2019-04-11
  • 概述:ListView Column

Delphi使用Column属性为ListView控件动态生成列,如下图所示的视图中,各个列是动态添加的,点击“添加”按钮,即可生成一个Listview新数据列,以下为实例代码:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListView1: TListView;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  cous :integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Columns.Add;
  inc(cous);
  form1.Caption:='列数:'+IntToStr(cous);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to cous-1 do
  begin
    ListView1.Column[i].Caption:='Column['+inttostr(i)+']';
  end;
end;
end.

Delphi Column动态生成列完整源码,下载后用Delphi7打开。

    相关内容:

    相关声明:

      若“在Delphi中使用Column属性为ListView动态生成列”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。