文档章节

使用 TListView 控件(2)

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 324
阅读 7
收藏 0

本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.Align := alLeft;
  Button1.Caption := '添加';
  Button2.Caption := '清空';
  RadioButton1.Caption := 'ViewStyle = vsIcon';
  RadioButton2.Caption := 'ViewStyle = vsList';
  RadioButton3.Caption := 'ViewStyle = vsReport';
  RadioButton1.Checked := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  item: TListItem;
begin
  item := ListView1.Items.Add;
  item.Caption := 'Item' + IntToStr(ListView1.Items.Count);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Clear;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  ListView1.ViewStyle := vsIcon; {这是默认值}
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  ListView1.ViewStyle := vsList;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  ListView1.ViewStyle := vsReport;
  if ListView1.Columns.Count = 0 then ListView1.Columns.Add.Caption := '标题';
end;

end.

 
 
 
 
 

 

 

  

窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 150
  ClientWidth = 310
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 8
    Top = 8
    Width = 161
    Height = 121
    Columns = <>
    TabOrder = 0
  end
  object Button1: TButton
    Left = 199
    Top = 84
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 199
    Top = 115
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 2
    OnClick = Button2Click
  end
  object RadioButton1: TRadioButton
    Left = 175
    Top = 8
    Width = 127
    Height = 17
    Caption = 'RadioButton1'
    TabOrder = 3
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 175
    Top = 31
    Width = 127
    Height = 17
    Caption = 'RadioButton2'
    TabOrder = 4
    OnClick = RadioButton2Click
  end
  object RadioButton3: TRadioButton
    Left = 175
    Top = 54
    Width = 127
    Height = 17
    Caption = 'RadioButton3'
    TabOrder = 5
    OnClick = RadioButton3Click
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/01/04/1368187.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
govcl v1.0.4 释出,GO 语言 UI 组件库

1、增加了TListView、TTreeView、TPageControl几个事件; 2、增加了TListView、TTreeView排序过程; 3、修复了New控件时使用CheckPtr增加安全检测; 4、增加了TListView、TTreeView排序,图像...

不在乎y
2017/12/21
2.6K
14
govcl 1.1.3 版本更新,GO 语言 UI 组件库

更新内容: TTreeView增加TTVAdvancedCustomDrawEvent、TTVAdvancedCustomDrawItemEvent事件 TListView增加TLVAdvancedCustomDrawEvent、TLVAdvancedCustomDrawItemEvent、TLVAdvancedCustom......

不在乎y
01/04
1K
8
GO 语言 UI 组件库 - govcl

由于现有第三方的Go UI库不是太大就是用的不习惯,或者组件太少。就萌生了自己写一个UI库的想法Delphi(Lazarus)有些许多优秀的VCL(LCL)组件,不拿来使用太可惜了。所以就索性做了一套。目前支...

不在乎y
2017/10/10
6.9K
17
delphi idftp idhttp 多线程多进度条

idftp 上传 多个文件同时上传,支持断点续传,多进度条。 起初用API做,发现对API了解太少,便改用线程类来处理,代码如下 TThread1 = class(TThread) private fCount, tstart, tlast: integ...

dillonxiao
09/29
0
0
delphi7 指针操作错误

源代码: unit Unit1; type TForm1 = class(TForm) Edit1: TEdit; ListView1: TListView; Button1: TButton; procedure FormCreate(Sender: TObject); procedure ListView1Deletion(Sender: T......

xjplab
2016/09/02
219
4

没有更多内容

加载失败,请刷新页面

加载更多

iOS分段选择器、旅行App、标度尺、对对碰小游戏、自定义相册等源码

iOS精选源码 企业级开源项目,模仿艺龙旅行App 标签选择器--LeeTagView CSSegmentedControl常用的分段选择器,简单易用! 仿微信左滑删除 IOS左滑返回 输入框 iOS 基于PhotoKit框架的自定义相...

Android爱开源
15分钟前
0
0
浅谈 Java JPDA

本文首发个人公众号《andyqian》,期待你的关注~ 前言 程序员在坊间有非常多有趣的故事,其中就有这么一则:”这个在我的电脑上是好的,没问题的呀,诺,你看咯,一定是你打开姿势不正确,浏...

andyqian
21分钟前
39
1
人工智能可以跳出动感的跳舞视频

非常热门的人工智能技术目前正在快速的发展,与此同时越来越多人工智能应用也开始出现在我们的生活中。 此前有开发者利用谷歌开源免费的卷积神经网络工具,将色情影片中的人物换成明星并达到...

linux-tao
24分钟前
0
0
离线批量数据通道Tunnel的最佳实践及常见问题

基本介绍及应用场景 Tunnel是MaxCompute提供的离线批量数据通道服务,主要提供大批量离线数据上传和下载, 仅提供每次批量大于等于64MB数据的场景,小批量流式数据场景请使用DataHub实时数据...

阿里云云栖社区
25分钟前
0
0
git reset放弃修改&放弃增加文件

1. 本地修改了一堆文件(并没有使用git add到暂存区),想放弃修改。 单个文件/文件夹: $ git checkout -- filename 所有文件/文件夹: $ git checkout . 2. 本地新增了一堆文件(并没有git a...

JamesView
31分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部