摘要：
界面布局设置如下 创建一个过程添加新项目 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 阅读全文
摘要：
工作遇到一个需求，主表、明细表需要用看板的模式显示，主表显示内容，从表显示表明细，如下图所示，需要每个表右键菜单独立选择当前明细内容 Pas程序 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, 阅读全文
摘要：
增加显示列gridView.Columns.AddVisible("AgentName", "姓名");设置是否为只读gridView1.OptionsBehavior.ReadOnly = true;设置是否可编辑gridView1.OptionsBehavior.Editable = false 阅读全文
摘要：
因默认外边距过大需要将外边距缩小用以下代码实现layoutControlGroup1.Padding = DevExpress.XtraLayout.Utils.Padding.Empty;是否允许只读控件获得焦点layoutControl1.OptionsFocus.AllowFocusReado 阅读全文