摘要：
空了再写 最终效果 阅读全文
摘要：
界面放上dxGaugeControl控件，点右键添加比例->圆 选择一个自己喜欢的样子，我这只是为了要指针 打开视图选项 AngleStart和AngleEnd主要是调整0-100位置的 MinValue，MaxValue是刻度最大、最小值 MinorTickCount设置次刻度数量 ShowBac 阅读全文
摘要：
官方示例效果 一、图表和数据多标签效果 二、自定义图表和选择图表类型（Border是否显示边线） 三、图表标题（Alignment文字对齐方式，Position标题相对图表的位置，上方、左方、右方、下方） 四、是否透明标注边框，选择透明后没有边框和白色底色 五、鼠标移动上去聚焦选中 六、右侧图例相关 阅读全文
摘要：
bpl unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Form 阅读全文
摘要：
设计数据库结构及内容格式如下 设计界面如下，打开、保存、打印这三列Properties改为CheckBox方式显示 加载菜单代码如下 procedure TForm1.Button1Click(Sender: TObject); var pNode: TcxTreeListNode; // 父节点 阅读全文
摘要：
AnimateFloat 是 Delphi 中用于创建简单动画效果的一个函数，它可以让你平滑地改变控件的属性值，例如位置、大小、透明度等。通过指定起始值和目标值，以及动画持续时间，AnimateFloat 函数可以实现属性值的过渡动画效果。 下面是 AnimateFloat 函数的语法： proce 阅读全文
摘要：
设计界面如下 把ListView的Item的 Appearance为DynamicAppearance，并且把Item改为高度100 添加Item代码 procedure TForm1.Button1Click(Sender: TObject); var img: TListItemImage; t 阅读全文
摘要：
上一篇用设计好界面后用代码添加稍微有些麻烦，所以改为用StyleBook设计好后添加Item 界面上添加ListBox后改Item高度为100 右键添加一条空白记录，观察高度，并且方便自定义编辑style样式 默认添加一条ListBoxItem1Style1的样式，添加Layout布局到这个样式下， 阅读全文
摘要：
界面设计如下 启动时默认值 procedure TForm1.FormCreate(Sender: TObject); begin //启动时隐藏模板 Layout1.Visible := False; //开启隔行变色 ListBox1.AlternatingRowBackground := Tr 阅读全文
摘要：
界面布局设置如下 创建一个过程添加新项目 procedure TForm1.AddItem(name: string; age: Integer); var layout: TLayout; begin // 设置姓名标签的文本 Label3.Text := name; // 设置年龄标签的文本 L 阅读全文