- 博客(78)
- 资源 (14)
- 收藏
- 关注
原创 cxGrid 按钮列 不响应按钮点击事件
cxGrid1DBTableView1.OptionsSelection.CellSelect := true; cxGrid1DBTableView1.OptionsData.Editing := True;
2024-06-29 17:35:41 137
原创 delphi FDMemTable1.SourceView遍历各行数据,取任意行数据无需Next移动指针了。TFDDatSView
beginthenContinue;end;
2024-06-14 15:03:43 172
原创 内存32G
分别双击 DisablePagingExecutive 和 LargeSystemCache 这两项,将其数值由 0 修改为 1。关闭 MemoryCompression 内存压缩和 PageCombining 内存合并。管理员身份运行PowerShell。
2024-04-18 10:16:14 198
原创 delphi vcl dll texthint 不生效 EM_SETCUEBANNER
若要使用此 API,必须提供指定Comclt32.dll版本 6.0 的清单。有关清单的详细信息,请参阅。一定要打开工程选项Enable Runtime Themes。
2024-04-12 20:11:56 204
原创 ORA-12705: Cannot access NLS data files or invalid environment specified
重启电脑。
2024-03-19 19:12:12 468
原创 如何取消Win10任务窗口栏预览。任务栏图标合并后竖排排列。
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]"ExtendedUIHoverTime"=dword:00010000[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Taskband]"NumThumbnails"=dword:0
2023-12-06 13:33:21 474
原创 Delphi利用adoquery调用sql server存储过程 标量值函数 表值函数
/参数名不需要与sql中定义的参数名相同。{利用adostoreproc调用sqlserver标量值函数}{利用adostoreproc调用sqlserver存储过程}
2023-11-16 10:56:56 497
原创 TNS_HOME ORACLE_HOME tnsnames.ora
TNS_HOME tnsnames.ora文件所在目录。ORACLE_HOME 客户端根目录。
2023-10-31 14:33:11 80
原创 win10 版本21H2 + vs2022 + Windows 11 版本 22H2 WDK
Driver Signing - Test Certificate 下拉菜单中点击Create Test Certificate。若要使用 Visual Studio 2022 开发和测试驱动程序,请下载 Windows 11 版本 22H2 WDK。Driver Settings - General,Target OS Version改成Windows 10,Target Platform改为Desktop;C/C++ - 常规,警告等级 4,将警告视为错误 否;链接器 - 常规,警告视为错误 否;
2023-08-21 15:40:53 1865
原创 Delphi7 ODAC控件连接Oracle RAC
如果要使用ODAC控件连接Oracle RAC,则需要Oracel安装客户端,并且不使用Direct模式,ODAC 控件中的Direct模式不支持Oracle RAC,只能够链接一个确定的RAC实例。根据说明,安装Oracle客户端,安装好之后,查找tnsnames.ora文件。orsn1.Server:=服务名;链接方式与ADO连接Oracle一致。注意,DMSII前不能有空格。
2023-06-29 10:15:57 651
原创 批处理 遍历删除delphi源码文件夹下dcu等所有类型的临时文件,包括其子文件夹
echo off, *.~ddp, *.~dpr, *.~pas, *.~pa, *.~dfm, *.$$$del "%%f"
2023-06-01 20:24:33 271
原创 delphi Control ‘‘ has no parent window
delphi Control '' has no parent window
2023-03-06 16:26:18 760
原创 delphi 10 安装 BDE
首先安装BDE Installer for RAD Studio Delphi C Builder 10.2 Tokyo。选择Delphi安装目录下\Embarcadero\Studio\19.0\bin\dclbde250.bpl。再打开Component->Install Packages->Add。
2022-09-22 18:06:00 1063
原创 JobsUtility does not contain definition
Entities 0.50 is compatible only with unity 2020.3 LTS0.5版本只适用于unity 2020.3 LTSEntities installation and setup | Entities | 0.50.1-preview.2
2022-05-21 13:36:42 559
原创 win10 使用 fpc 编译Pascal Bare Bones 操作系统
ftp://freepascal.dfmk.hu/pub/lazarus/releases/Pascal Bare Bones - OSDev Wikinasm -f elf32 stub.asm -o stub.ofpc -Aelf -n -O3 -Op3 -Si -Sc -Sg -Xd -CX -XXs -Rintel -Tlinux kernel.pasfpc -Aelf -n -O3 -Op3 -Si -Sc -Sg -Xd -CX -XXs -Rintel -TWin64 k
2022-02-09 11:08:43 962
原创 delphi禁止webbrowser弹出窗口或者脚本错误
webbrowser1.silent:=true; //屏蔽脚本错误procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);beginCancel:=True; //禁止弹出窗口end;
2021-10-26 16:18:02 377
原创 Listary中使用Everything搜索
选项 关键字 自定义关键字 ee描述 Everything参数 -search "{query}"
2021-09-26 17:17:41 1157
原创 delphi TVirtualStringTree 自绘
VirtualStringTreeDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; const Text: string; const CellRect: TRect; var DefaultDraw: Boolean);在此事件中进行自绘,并将DefaultDraw设置未false,即可。...
2021-09-24 18:00:21 371
原创 delphi DrawText多行文本垂直居中
procedure TForm1.Button4Click(Sender: TObject);var Text: string; R, TextRct: TRect; H: Integer;begin R := rect(10, 10, 200, 100); Canvas.Rectangle(R); Text := 'Demo Line 1'#13'Demo Line 2'#13'Demo Line 3'#13'Demo Line 4'; TextRct := R; H ...
2021-09-17 16:36:52 642
原创 delphi 控件动态数组 array of TImage 的一个奇怪问题
arrTImage: array of TImage;SetLength(arrTImage, imageCount+1); //分配空间需要比实际数量加1,不然释放的时候会报内存错误,非常奇怪,这是怎么回事呢? for I := 0 to Length(arrTImage) - 1 do begin // aComponent := Self.FindComponent('image' + inttostr(I)); if arrTImage[I] <&g...
2020-12-17 10:53:32 306
原创 delphi禁止webbrowser弹出窗口或者脚本错误
procedure TForm2.WebBrowser1ShowScriptError(ASender: TObject; const AErrorLine, AErrorCharacter, AErrorMessage, AErrorCode, AErrorUrl: OleVariant; var AOut: OleVariant; var AHandled: Boolean);begin AHandled := true;end;
2020-12-04 16:42:02 399
原创 delphi CreateNamedPipe ConnectNamedPipe GetLastError 5
delphi CreateNamedPipe ConnectNamedPipe GetLastError 5用c++连接delphi创建的命名管道时报错5解决方法:单独运行delphi编译的exe,不要用调试模式运行
2020-12-01 16:52:05 472
原创 delphi Undeclared identifier: IMAGE_FILE_LARGE_ADDRESS_AWARE
uses WinApi.Windows;
2020-07-01 15:13:41 561
原创 delphi cef4Delphi CEF binaries missing !
设置路径即可GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.FrameworkDirPath := ExtractFilePath(ParamStr(0)); GlobalCEFApp.LocalesDirPath := ExtractFilePath(ParamStr(0))+'locales'; GlobalCEFApp.ResourcesDirPath := ExtractFilePath(ParamStr(0));...
2020-06-18 12:25:00 3832 2
原创 makeappx 命令行 将exe打包成uwp
https://docs.microsoft.com/zh-cn/windows/msix/package/manual-packaging-rootmakepri.exe createconfig /cf priconfig.xml /dq en-USmakepri.exe new /pr . /cf .\priconfig.xmlMakeAppx pack /v /h SHA256 /d . /p uploadX86.msix
2020-06-17 17:19:37 1207 2
win10 版本21H2 + vs2022 + Windows 11 版本 22H2 WDK 驱动工程demo
2023-08-21
D7WebServiceTest-Web App Debugger executable
2023-08-17
delphi10可用Fastnet_V5.6.3_For_D5D6D7D9D10 - 副本.zip
2019-11-06
Delphi HttpServer跨域
2019-04-03
GNU Gettext Delphi Demo
2016-11-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人