动态生成Listview并添加列表

最新推荐文章于 2020-06-29 13:11:03 发布

weixin_30867015

最新推荐文章于 2020-06-29 13:11:03 发布

阅读量332

点赞数

CC 4.0 BY-SA版权

文章标签： python

原文链接：http://www.cnblogs.com/www2/archive/2012/11/12/2765817.html

本文详细介绍了如何在Delphi中使用RzListVw组件创建自定义列表视图，包括控件转换为listview、添加列表项、动态生成并赋值等关键步骤。

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

本博未注明类别均为原创。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, RzListVw, StdCtrls, ExtCtrls, RzTabs;

type
TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    RzPageControl1: TRzPageControl;
function GetListview : TRzListview;  //定义函数功能: 查找当前控件转为listview
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
mylistview : TRzListview;
tab : TRzTabSheet;
implementation

{$R *.dfm}

function TForm1.Getlistview : TRzListview;
var
I: Integer;
Alistview: TRzListview;
begin
Result := nil;
ShowMessage(IntToStr(RzPageControl1.ActivePage.ControlCount));
for I := 0 to RzPageControl1.ActivePage.ControlCount-1 do
begin
    if RzPageControl1.ActivePage.Controls[I] is TRzListview then
    begin
      Alistview := RzPageControl1.ActivePage.Controls[I] as TRzListview;
      Result := Alistview;
    end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mylistview := GetListview; //容错可以自行修改。
mylistview.Items.Add;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin //动态生成并赋值。
tab := TRzTabSheet.Create(RzPageControl1);
tab.Parent := RzPageControl1;
tab.PageControl := RzPageControl1;
tab.Caption := '00000';
mylistview := TRzListView.Create(tab);
mylistview.Parent := tab;
mylistview.Align := alClient;
mylistview.ViewStyle := vsReport ;
mylistview.Columns.Add;
mylistview.Columns.Items[0].Caption := '00000';
tab := TRzTabSheet.Create(RzPageControl1);
tab.Parent := RzPageControl1;
tab.PageControl := RzPageControl1;
tab.Caption := '111111';
mylistview := TRzListView.Create(tab);
mylistview.Parent := tab;
mylistview.Align := alClient;
mylistview.ViewStyle := vsReport;
mylistview.Columns.Add;
mylistview.Columns.Items[0].Caption := '111111';
end;