Thenext

摘要： 方法： 增加控件cxGridPopupMenu，绑定对应的cxgrid ，再增加控件：，右键的菜单内容在此设定。 这里是需要设置在哪些地方可以右键弹出。 设置自定义的右键菜单。 阅读全文

摘要： //恢复布局IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini';if FileExists(IniFileName) thenSelf.tvResult.RestoreFromIni 阅读全文

摘要： TcxGridDBTableSummaryItem 引用单元 cxGridDBTableView 阅读全文

摘要： 今天上午才遇到的一个问题，Delphi在debug模式下运行好好的，切换到release模式下竟然无法正确返回？ 把工程设置中的 Optimization 中的勾去掉再编译， 这下Release模式下运行没有问题了。 当然这里只记录了这一种情况，大家如果遇到跟我一样问题的时候不妨试试，看能不能解决问 阅读全文

摘要： 一： 日志发送到远程syslog服务器： var AWriter := TQLogSocketWriter.Create;AWriter.ServerHost := 127.0.0.1;//远程服务器地址AWriter.ServerPort := 514; //远程服务器端口AWriter.UseT 阅读全文

摘要： 使用mkcert工具创建证书1、下载mkcert工具，下载地址如下：​​ ​mkcert工具下载​​ 百度下载：链接：​ ​https://pan.baidu.com/s/10ym5W91g612LDk3t9isFGQ ​​提取码：1234 2、解压后运行https本地证书生成工具.bat（文件上点 阅读全文

摘要： Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 1 procedure TForm18.Button2Click(Sender: TObject); 2 var 3 cV: TDatasetToJSONBridge; 4 jo: Tjsonobject; 5 be 阅读全文

摘要： 要删除ClientDataSet中的所有列，可以使用以下代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除，以避免索引错误 for i := ClientDataSet1.Fie 阅读全文

摘要： 要删除CXGrid中的所有列，可以使用以下代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除，以避免索引错误 for i := cxGrid1DBTableView1.Colum 阅读全文

摘要： cxGrid，数据库中存在：GongSiNo，GongSiMc；cxGrid中显示列GongSiMc，Properties指定的是ComBoBox，GongSiMc变化时更新GongSiNo的值并存入数据库。在Properties的OnChange事件中写代码：{ GSNo, GSMc: strin 阅读全文