使用 TListView 控件(3)
为什么80%的码农都做不了架构师?>>>
本例效果图:
代码文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)ListView1: TListView;Button1: TButton;Button2: TButton;CheckBox1: TCheckBox;CheckBox2: TCheckBox;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure CheckBox1Click(Sender: TObject);procedure CheckBox2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
vari: Integer;column: TListColumn;
beginfor i := 0 to 5 dobegincolumn := ListView1.Columns.Add;column.Caption := Format('Col %d', [i]);end;ListView1.Align := alTop;ListView1.ViewStyle := vsReport;ListView1.GridLines := True; {非默认}ListView1.ShowColumnHeaders := True; {默认}CheckBox1.Caption := 'GridLines';CheckBox2.Caption := 'ShowColumnHeaders';CheckBox1.Checked := True;CheckBox2.Checked := True;Button1.Caption := '添加';Button2.Caption := '清空';
end;procedure TForm1.Button1Click(Sender: TObject);
varitem: TListItem;i: Integer;
beginitem := ListView1.Items.Add;item.Caption := 'Item ' + IntToStr(item.Index);for i := 0 to ListView1.Columns.Count - 1 doitem.SubItems.Add(Format('%d%d', [item.Index, i]));
end;procedure TForm1.Button2Click(Sender: TObject);
beginListView1.Items.Clear;
end;procedure TForm1.CheckBox1Click(Sender: TObject);
beginListView1.GridLines := CheckBox1.Checked;
end;procedure TForm1.CheckBox2Click(Sender: TObject);
beginListView1.ShowColumnHeaders := CheckBox2.Checked;
end;end.
窗体文件:
object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 198ClientWidth = 322Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object ListView1: TListViewLeft = 8Top = 8Width = 185Height = 121Columns = <>TabOrder = 0endobject Button1: TButtonLeft = 232Top = 134Width = 75Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 232Top = 165Width = 75Height = 25Caption = 'Button2'TabOrder = 2OnClick = Button2Clickendobject CheckBox1: TCheckBoxLeft = 16Top = 145Width = 97Height = 17Caption = 'CheckBox1'TabOrder = 3OnClick = CheckBox1Clickendobject CheckBox2: TCheckBoxLeft = 16Top = 169Width = 177Height = 17Caption = 'CheckBox2'TabOrder = 4OnClick = CheckBox2Clickend
end
转载于:https://my.oschina.net/hermer/blog/319600
使用 TListView 控件(3)相关推荐
- 教程-Delphi第三方控件安装卸载指南
1 只有一个DCU文件的组件.DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布.一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出现错误.也正是因为没有源 ...
- delphi控件使用
Standard页 1- Tlistbox控件 重要属性items.* 举例,界面设计如下左,执行结果如下右: 代码为 procedure TForm1.Button1Click(Sende ...
- edptrayicon怎么卸载_教程-Delphi第三方控件安装卸载指南
1 只有一个DCU文件的组件.DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布.一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出现错误.也正是因为没有源 ...
- DELPHI第三方控件及组件大全(安装方法与使用)
一,DELPHI第三方控件安装方法介绍 1.对于单个控件,Componet–>install component..–>PAS或DCU文件–>install; 2.对于带*.dpk文 ...
- Win32页上的所有控件属性与方法
Win32页上的所有控件.该页控件是在32位Win系统中的一些基本控件,如果你选择开发CLX程序,则在控件面板上不会显示该页 TTabControl 属性 DisplayRect:只定该控件客户区的一 ...
- delphi7 安装delphi 5 delphi 6控件
delphi7默认没有安装.需要手动安装. 具体位置:delphi7/bin/dclsockets70.bpl. 安装方法如下: Component->Install Packages-> ...
- 在ListView控件中绘底图
ListView控件是Windows程序开发中的常用控件, 利用它可以把需要用户进行选择操作的多个项目在窗口中以列表的方式显示, 每一个项目可以有它的小图标和大图标, 从而可以改善程序的用户界面, 方 ...
- delphi7 如何加载控件
1.delphi7 如何加载Fastnet控件 在CSDN中搜索了半天,都说Fastnet控件没有办法加载,要么安装delphi6.0 要么用indy,这种说法只能说明,回帖的人没有能够领会,提出问题 ...
- C++ Builder 动态创建控件
当开发类似解释程序或实现可视化操作功能等一类的应用程序时,都需要动态地创建控件(对象),而且还要为这些控件添加适当的事件处理程序,下面将介绍在C++Builder中如何实现基本的实现框架. 动态创建控 ...
最新文章
- 【Android】html转义字符
- java读取写入文件
- oracle中sql行数的计算,Oracle技术网—如何利用DBMS_SQL包和游标计算当前用户下所有表的行数...
- php fpm在哪配置,php7的php-fpm.conf文件在哪里
- 【热修复】Andfix源码分析
- 出版物发行单位是指哪些_上海办理出版物经营许可证都需要哪些手续和资料?...
- azure_面向初学者的Azure Data Explorer
- MTK:串口调试方法|MTK串口工具
- 【转】编程思想之多线程与多进程(1)——以操作系统的角度述说线程与进程
- 书单丨724运维日,为运维人干杯
- Android 10.0修改语言设置简体中文(中国)为简体中文(中国大陆)
- mongodb创建图书管理_基于vue 和 node Mongodb 的 图书管理系统
- VMware虚拟机安装xp系统
- Centos 安装libreoffice 以及 word转pdf转html转epub转txt
- 蓝筹股连环爆雷!这些蓝筹股哪些最容易爆雷?(最全名单)
- java木马编码,深度好文:解码“深度伪装”的ZeuS网银木马
- Visual C++ 新增功能(2003 - 2015)
- 数理统计10.15 | 幂律分布
- 不让我发图,我发链接还不行吗
- jquery验证手机号码和固定电话号码
热门文章
- linux更改文件夹权限_Linux 一些重点知识,整理的很全面,有必要收藏
- php上传图片 $__files没有信息_Python接口测试文件上传实例解析
- linux查看接口名,在linux下 怎么查看网络接口的名字? 网络接口的名字英文是什么呀?...
- 2020年行政区划代码_2020年柳州市行政区划,了解柳州市有几个区,详细数据
- spark编程基础--5.1RDD编程基础
- ==和equals()的作用及区别
- mysql下载解压安装_mysql zip 解压安装
- 算法(2)KMP算法
- React 组件绑定点击事件,并且传参完整Demo
- 【微信小程序之画布】三:手指触摸绘画椭圆