会员
众包
新闻
博问
闪存
赞助商
HarmonyOS
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
Li Essay
博客园
首页
新随笔
联系
订阅
管理
上一页
1
2
3
4
5
6
7
8
9
···
22
下一页
2022年6月1日
StringGrid单元格点击绑定控件后显示右键菜单
摘要: 正常点击后出现动态创建的控件,会阻止右键菜单,需要以下处理 procedure Tfz_lab_ivf_sjpt.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer
阅读全文
posted @ 2022-06-01 11:05 liessay
阅读(208)
评论(0)
推荐(0)
2022年5月6日
StringGrid单元格绑定ComboBox、DateTimePicker或窗口传值
摘要: 一、初始化控件状态 procedure TForm7.FormCreate(Sender: TObject); begin with StringGrid1 do begin ColWidths[0] := 15; Cells[1, 0] := 'Combobox'; ColWidths[1] :=
阅读全文
posted @ 2022-05-06 13:29 liessay
阅读(184)
评论(0)
推荐(0)
2021年7月8日
FastReport合并多份报表为一份预览打印
摘要: 效果 比较简单,直接贴代码 //打印第一份报表 procedure TForm1.Button2Click(Sender: TObject); begin frxReport1.LoadFromFile('1.fr3'); TfrxMemoView(frxReport1.FindObject('Me
阅读全文
posted @ 2021-07-08 10:34 liessay
阅读(922)
评论(2)
推荐(0)
Delphi使用AcroPDF ActiveX显示PDF文件
摘要: 效果展示 调用方式 放入窗体即可使用,不想安装太多组件,可使用纯代码方式调用 interface ..... var AcroPDF: TAcroPDF; .... implementation ..... procedure TForm1.FormClose(Sender: TObject; va
阅读全文
posted @ 2021-07-08 09:32 liessay
阅读(2201)
评论(0)
推荐(0)
Delphi使用Zxing创建二维码
摘要: 效果 DelphiZXingQRCode下载地址:https://www.debenu.com/open-source/delphizxingqrcode/ 为了调用方便unit DelphiZXIngQRCode增加了一个过程 procedure EncodeToImage(const text:
阅读全文
posted @ 2021-07-08 08:35 liessay
阅读(1928)
评论(0)
推荐(0)
2021年6月30日
TreeView和ListView数据库查询数据联动操作
摘要: 好久不用了,重新整理下放这里以备需要使用,功能见图 数据库表结构 定义TreeView addObject中data存储的记录集 type PNode = ^TNode; TNode = record id: Integer; tcmc: string; mxid: string; end; 填充T
阅读全文
posted @ 2021-06-30 13:55 liessay
阅读(576)
评论(0)
推荐(0)
2021年6月24日
根据数据库查询结果动态创建控件(仿看板模式显示)
摘要: 工作遇到一个需求,主表、明细表需要用看板的模式显示,主表显示内容,从表显示表明细,如下图所示,需要每个表右键菜单独立选择当前明细内容 Pas程序 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils,
阅读全文
posted @ 2021-06-24 15:38 liessay
阅读(299)
评论(0)
推荐(0)
2021年3月29日
GridView控件使用
摘要: 增加显示列gridView.Columns.AddVisible("AgentName", "姓名");设置是否为只读gridView1.OptionsBehavior.ReadOnly = true;设置是否可编辑gridView1.OptionsBehavior.Editable = false
阅读全文
posted @ 2021-03-29 11:34 liessay
阅读(259)
评论(0)
推荐(0)
LayoutControl控件使用
摘要: 因默认外边距过大需要将外边距缩小用以下代码实现layoutControlGroup1.Padding = DevExpress.XtraLayout.Utils.Padding.Empty;是否允许只读控件获得焦点layoutControl1.OptionsFocus.AllowFocusReado
阅读全文
posted @ 2021-03-29 11:31 liessay
阅读(160)
评论(0)
推荐(0)
TreeListLookUpEdit控件使用
摘要: 绑定数据 treeListLookUpEdit1.Properties.DataSource=list;增加列treeListLookUpEdit1.Properties.TreeList.Columns.AddVisible("DepartmentCode");设置IDtreeListLookUp
阅读全文
posted @ 2021-03-29 11:29 liessay
阅读(643)
评论(0)
推荐(0)
上一页
1
2
3
4
5
6
7
8
9
···
22
下一页
公告