Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox
TListBox 的功能在 TCustomListBox 里就完成了.
值得注意的变化是:
1、复选框(相关属性: ShowCheckboxes、TListBoxItem.IsChecked)
2、交替背景(通过继承还可以调整交替的背景色)
3、TListBoxItem 可调整大小、容纳其它对象.
{ TCustomListBox }
public
constructor Create(...); override; //
destructor Destroy; override; //
procedure Assign(...); override; //
procedure Clear; virtual; //清空
function DragChange(...): Boolean; dynamic; //调用 OnDragChange 事件
procedure SelectAll; //全选
procedure ClearSelection; //取消选择
procedure SelectRange(...); //选择指定范围
function ItemByPoint(...): TListBoxItem; //获取指定位置的项
function ItemByIndex(...): TListBoxItem; //获取指定序号的项
procedure Exchange(...); //交换项
procedure AddObject(...); override; //添加项
procedure RemoveObject(...); override; //删除项
procedure Sort(...); override; //排序
property Count: Integer ...; //项总数
property Selected: TListBoxItem ...; //当前选择的项
property Items: TStrings ...; //元素文本的集合
property ListItems[Index: Integer]: TListBoxItem ...; //根据索引获取项
property ItemIndex: Integer ...; //索引
end; { TListBox }
published
property StyleLookup; //
property AllowDrag; //是否允许拖放
property CanFocus; //
property DisableFocusEffect; //
property TabOrder; //
property AlternatingRowBackground; //是否使用交替背景
property Columns; //列数; 默认 1
property HideSelectionUnfocused; //在失去焦点时是否隐藏选择
property Items; //
property ItemIndex; //
property ItemWidth; //项宽
property ItemHeight; //项高
property ListStyle; //列表样式; TListStyle = (lsVertical, lsHorizontal);
property MultiSelect; //是否允许多选; 为 True 时, 配合 Ctrl 键多选
property Sorted; //
property ShowCheckboxes; //是否显示复选框; 默认 False
property BindingSource; //绑定源
property OnChange; //有变化时
property OnChangeCheck; //调整复选框时
property OnCompare; //排序比较时
property OnDragChange; //拖放项时
end; { TListBoxItem }
public
constructor Create(...); override; //
property Data: TObject ...; //
property Index: Integer ...; //
published
property IsChecked: Boolean ...; //复选值
property IsSelected: Boolean ...; //
property AutoTranslate ...; //
property Font; //
property StyleLookup; //
property Text; //
property TextAlign ...; //
property WordWrap; //
end;
测试:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
ListBox1.Align := TAlignLayout.alLeft;
ListBox1.ShowCheckboxes := True;
ListBox1.AlternatingRowBackground := True;
for i := to do
begin
ListBox1.Items.Add('Itme' + IntToStr(i));
ListBox1.ListItems[i].IsChecked := Odd(i);
end;
end;
Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox的更多相关文章
- Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView、TTreeViewItem
Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView.TTreeViewItem TScrollBox -> TCustomTreeView -> ...
- Delphi XE2 之 FireMonkey 入门(43) - 控件基础: TStringGrid、TGrid
Delphi XE2 之 FireMonkey 入门(43) - 控件基础: TStringGrid.TGrid TStringGrid.TGrid 都是从 TCustomGrid 继承; 区别有:1 ...
- Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox、TComboEdit
Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox.TComboEdit TListBox 有两个兄弟 TComboListBox.TComboEditL ...
- Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo
Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo 值得注意的变化: 1.其父类 TScrollBox 的许多特性也很有用处, 如: Memo1.UseSma ...
- Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox、TVertScrollBox、TFramedScrollBox、TFramedVertScrollBox
Delphi XE2 之 FireMonkey 入门(39) - 控件基础: TScrollBox.TVertScrollBox.TFramedScrollBox.TFramedVertScrollB ...
- Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu、TMenuItem、TMenuBar、TMainMenu
Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu.TMenuItem.TMenuBar.TMainMenu 相关控件: TMenuBar.TPopup ...
- Delphi XE2 之 FireMonkey 入门(37) - 控件基础: TControl 概览
Delphi XE2 之 FireMonkey 入门(37) - 控件基础: TControl 概览 { TControl } public constructor Create(...); ov ...
- Delphi XE2 之 FireMonkey 入门(36) - 控件基础: TForm
Delphi XE2 之 FireMonkey 入门(36) - 控件基础: TForm 当我第一次读取 Form1.StyleLookup 并期待出现 "formstyle" 时 ...
- Delphi XE2 之 FireMonkey 入门(35) - 控件基础: TFmxObject: 其它
Delphi XE2 之 FireMonkey 入门(35) - 控件基础: TFmxObject: 其它 TFmxObject 增加了 TagObject.TagFloat.TagString, 算 ...
随机推荐
- vue项目--vuex状态管理器
本文取之官网和其他文章结合自己的理解用简单化的语言表达.用于自己的笔记记录,也希望能帮到其他小伙伴理解,学习更多的前端知识. Vuex 是什么? Vuex 是一个专为 Vue.js 应用程序开发的状态 ...
- IDEA设置类头,方法头自定义内容~图文
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
- MySQL下载~安装教程~这里示例 MySQL 8.0 Command Line Client
打开 https://www.mysql.com 也可以选择我分享的百度网盘文件 MySQL8.0.16.0 安装包 https://pan.baidu.com/s/1U8DkyJVp9Zvx7Zok ...
- strtok的使用
/* strtok函数的使用 */ #include <stdio.h> #include <stdlib.h> #include <string.h> // 函数 ...
- MYSQL<五>
-- ########## 01.LIMIT的使用和分页 ########## INSERT INTO studentinfo VALUES(NULL, '刘备', '男', 35), (NULL, ...
- pyqt-swf
# pyqt5界面打开flash.swf文件 from PyQt5 import QtCore, QtGui, QAxContainer, QtWidgets class Ui_Flash(QAxCo ...
- iOS自定义键盘的简单实现
自定义键盘类VolumeInputKeyboardView: VolumeInputKeyboardView.h文件: #import <UIKit/UIKit.h> NS_ASSUME_ ...
- k8s-dashboard搭建
一,简单搭建,未使用ssl证书,可载谷歌浏览器访问 1,拉取镜像 docker pull gcrxio/kubernetes-dashboard-amd64:v1.10.1 docker tag gc ...
- SqlServer 随机生成中文姓名(转)
,) )) -- 姓氏 ,) )) -- 名字 INSERT @fName VALUES ('赵'),('钱'),('孙'),('李'),('周'),('吴'),('郑'),('王'),('冯'),( ...
- luogu P2661 信息传递 x
P2661 信息传递 题目描述 有n个同学(编号为1到n)正在玩一个信息传递的游戏.在游戏里每人都有一个固定的信息传递对象,其中,编号为i的同学的信息传递对象是编号为Ti同学. 游戏开始时,每人都只知 ...