摘要:
设计界面如下 把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 阅读全文
摘要:
正常点击后出现动态创建的控件,会阻止右键菜单,需要以下处理 procedure Tfz_lab_ivf_sjpt.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer 阅读全文
摘要:
一、初始化控件状态 procedure TForm7.FormCreate(Sender: TObject); begin with StringGrid1 do begin ColWidths[0] := 15; Cells[1, 0] := 'Combobox'; ColWidths[1] := 阅读全文
摘要:
效果 比较简单,直接贴代码 //打印第一份报表 procedure TForm1.Button2Click(Sender: TObject); begin frxReport1.LoadFromFile('1.fr3'); TfrxMemoView(frxReport1.FindObject('Me 阅读全文
摘要:
效果展示 调用方式 放入窗体即可使用,不想安装太多组件,可使用纯代码方式调用 interface ..... var AcroPDF: TAcroPDF; .... implementation ..... procedure TForm1.FormClose(Sender: TObject; va 阅读全文
摘要:
效果 DelphiZXingQRCode下载地址:https://www.debenu.com/open-source/delphizxingqrcode/ 为了调用方便unit DelphiZXIngQRCode增加了一个过程 procedure EncodeToImage(const text: 阅读全文
摘要:
好久不用了,重新整理下放这里以备需要使用,功能见图 数据库表结构 定义TreeView addObject中data存储的记录集 type PNode = ^TNode; TNode = record id: Integer; tcmc: string; mxid: string; end; 填充T 阅读全文