Delphi 的 kbmMW 控件包是一个功能强大的企业级应用开发框架，特别适用于构建客户端/服务器架构的应用程序。它由 components4developers (c4d) 开发，旨在为Delphi开发者提供一个全面的、易于使...

kbmmw例子 V2.0 (unidac+mssql)[2012-08-15]

Delphi FMX Android中复制文件遇到权限问题的解决方案在使用Delphi 12 FMX为Android开发应用时，遇到从/storage/emulated/0/Documents/calorie_consumption.db复制文件到/data/user/0/com.embar...

在使用Delphi Rad Studio 10.3和Cef4delphi时，调用chromium.Loadurl()或chromium.Browser.MainFrame.Loadurl()可能导致程序窗口意外置顶。为解决此问题，可以通过以下方法调整焦点处理：在您的...

通过使用 TChromium.OnLoadError 并调用 TChromium.LoadString 来显示我自己的错误页面来解决此问题回调的参数 errorCode   有以下值：uCEFConstants.pas 单元const // Error list defined in...

 下载包总共有235M，本下载包包含最新版的DevExpress的官方演示demo和demo的源代码 需要高速下载的，请购买后从本地下载 免费的，请从云盘下载链接：https://share.weiyun.com/APNtXPCX   ...

可访问性、UI 自动化和键盘导航增强功能您可能还记得之前的公告，无障碍功能（A11Y） 支持是所有产品库的主要关注领域。VCL 在这方面也不例外。我们的战略由以下原则驱动：使我们的 UI 组件和...

将 cxGrid 导出（保存）到 excel 时，增加一列行号

可以使用 ExportGridToXLSX 方法将 Grid 导出到 XLSX 文件uses cxGridExportLink; procedure <AForm>.<AcxButton>Click(Sender: TObject); begin ExportGridToXLSX('c:\chart.xlsx'...

procedure TfmMain.cxButtonNoteCustomDraw(Sender: TObject; ACanvas: TcxCanvas; AViewInfo: TcxButtonViewInfo; var AHandled: Boolean); begin ACanvas.Brush.Color := clRed; ACanvas.Floo...

uses .., clipbrd; if GridView.OptionsSelection.CellSelect then Clipboard.AsText := <GridView>.Controller.FocusedRow.Values[FocusedColumn.Index]; 

 见代码吧 

uses cxExportPivotGridLink； procedure ExportGrid(aGrid: TcxCustomPivotGrid); var SaveDialog: TSaveDialog; begin if not Assigned(aGrid) then Exit; SaveDialog := TSaveDialog.Create(...

RAD Studio 10.2.3 测试√  代码：procedure TForm_Tips.Button_ParamIsFuncClick(Sender: TObject); type // 需要先声明一个方法的类型 TFuncType = function(ANum: Integer): Integer; func...

TStringList 中有一个属性Delimiter，很多时候可以巧用这个属性！有一字符串，中间有许多特殊符号，现在需要把其分割开，如果用TStringList的Delimiter属性，将会使程序变得非常简单。TStringLi...

procedure TForm1.btn1Click(Sender : TObject); var m : Integer; s : string; strlst : TStringList; begin strlst := TStringList.Create; strlst.Add('张三=80'); strlst.Add('张四=90'); s...

RAD Studio 10.2.3 测试√存对象：StrList.AddObject(mStrKey, mValueObj); 取对象mIndex := StrList.IndexOf(mStrKey); if mIndex >= 0 then Result := TClass(StrList.Objects[mIndex]);...

RAD Studio 10.2.3 测试√源码仓库(Gitee)：https://gitee.com/xiaoyinhui这个计时精度是根据自己电脑硬件配置决定的我目前的可以精确到 0.1 微秒使用实例PS：需要引用单元 uHightAccuracyTime...

控件 scStyledForm 下的 Tabs 下的子项的 OnClick 事件【进行 cxPageControl 的面板切换】procedure TForm1.scStyledForm1Tabs0Click(Sender: TObject); begin cxPageControl1.ActivePageIndex ...

控件：scGPGlyphButton控件部分属性：【关闭和最小化下的OnClick事件】procedure TForm2.scGPGlyphButton1Click(Sender: TObject); begin Application.Terminate; //关闭 end; procedure TForm2...