摘要: 上一篇用设计好界面后用代码添加稍微有些麻烦,所以改为用StyleBook设计好后添加Item 界面上添加ListBox后改Item高度为100 右键添加一条空白记录,观察高度,并且方便自定义编辑style样式 默认添加一条ListBoxItem1Style1的样式,添加Layout布局到这个样式下, 阅读全文
posted @ 2024-01-14 23:22 liessay 阅读(89) 评论(0) 推荐(0) 编辑
摘要: 界面设计如下 启动时默认值 procedure TForm1.FormCreate(Sender: TObject); begin //启动时隐藏模板 Layout1.Visible := False; //开启隔行变色 ListBox1.AlternatingRowBackground := Tr 阅读全文
posted @ 2024-01-14 21:24 liessay 阅读(89) 评论(0) 推荐(0) 编辑
摘要: 界面布局设置如下 创建一个过程添加新项目 procedure TForm1.AddItem(name: string; age: Integer); var layout: TLayout; begin // 设置姓名标签的文本 Label3.Text := name; // 设置年龄标签的文本 L 阅读全文
posted @ 2024-01-14 20:09 liessay 阅读(40) 评论(0) 推荐(0) 编辑