Delphi2010 - 随笔分类 - 涂磊

摘要：通过Associate与其他控件相关连与spinButton类似阅读全文

posted @ 2026-02-16 13:34 涂磊阅读(2) 评论(0) 推荐(0)

摘要：ButtonColor1.SymbolColor; 文本说明阅读全文

posted @ 2026-02-15 12:08 涂磊阅读(4) 评论(0) 推荐(0)

摘要：【转】Delphi 文件拖放 - laymond - 博客园用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile;用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放;然后就等待 WM_DROPFILES 消息, 并用阅读全文

posted @ 2026-02-08 17:34 涂磊阅读(7) 评论(0) 推荐(0)

Delphi10.3文件类型为默认打开方式时，接收文件名参数

摘要：procedure TFormMain.FormCreate(Sender: TObject); begin if paramCount>0 then begin DisplayPDF(ParamStr(1)); end; end; 阅读全文

posted @ 2026-02-08 16:35 涂磊阅读(5) 评论(0) 推荐(0)

delphi自带双列ListBox的Demo

摘要：通过网盘分享的文件：双列ListBox的Demo.rar链接: https://pan.baidu.com/s/1F_n8Uja15lELabFCBIk39g?pwd=cf29 提取码: cf29 阅读全文

posted @ 2026-01-31 16:57 涂磊阅读(7) 评论(0) 推荐(0)

Delphi里用ListView实现PDF左边页面选择功能

摘要：01】拖一个ListView到页面上，双击它 02】ViewStyle为vsReport 03]增加页码 var item: TListItem; i:integer; begin ListView1.Items.Clear; for I := 0 to Pdf.PageCount-1 do beg 阅读全文

posted @ 2026-01-17 14:09 涂磊阅读(10) 评论(0) 推荐(0)

delphi 判断系统是不是 win10

摘要：delphi 判断系统是不是 win10_delphi判断windows-CSDN博客 type NET_API_STATUS = DWORD; _SERVER_INFO_101 = record sv101_platform_id: DWORD; sv101_name: LPWSTR; sv101 阅读全文

posted @ 2026-01-10 13:25 涂磊阅读(5) 评论(0) 推荐(0)

memo1 通过行号跳转到指定行

摘要：procedure TForm3.ToolButton11Click(Sender: TObject); //memo1 通过行号定位指定行 var LineNumber, StartPos, LineLength: Integer; begin LineNumber := strtoint(e 阅读全文

posted @ 2025-08-11 15:10 涂磊阅读(29) 评论(0) 推荐(0)

Delphi10.3中Ctrl+J添加代码模板Code_Template

摘要：https://docwiki.embarcadero.com/RADStudio/Sydney/en/Live_Templates 添加Jump Point跳转点 <?xml version="1.0" encoding="utf-8" ?> <codetemplate xmlns="http:/ 阅读全文

posted @ 2025-08-10 15:56 涂磊阅读(37) 评论(0) 推荐(0)

修改.dproj的<DCC_ExeOutput>标签，可以控制exe的输出目录

摘要：Delphi 中.dproj 文件解析(二、详细解析)-CSDN博客注意是反斜杠 <DCC_ExeOutput>c:/</DCC_ExeOutput> 总结 .dproj文件是项目入口总控文件，由Delphi开发环境创建的，不清楚不要轻易修改；在Delphi的开发环境已经都编译通过，然后需要自阅读全文

posted @ 2025-08-01 09:49 涂磊阅读(23) 评论(0) 推荐(0)

Delphi10.3里 Memo1/richedit1 查找对话框粘贴问题解决

摘要：删除自己写粘贴过程, uses Clipbrd ; var ClipboardText: string; begin ClipboardText := Clipboard.AsText; // 08 ]粘贴时，将剪贴板文本中的 TAB 字符替换为四个空格 ClipboardText : 阅读全文

posted @ 2025-07-31 17:03 涂磊阅读(17) 评论(0) 推荐(0)

在Delphi中将任意文件存入,取出 SQLite数据库,主要是流的操作

摘要：通过网盘分享的文件：PDF2DB-V3.rar链接: https://pan.baidu.com/s/1exGp_QC1Das1TPAhnT0Q9A?pwd=44z2 提取码: 44z2 在Delphi中将JPG存入SQLite数据库 CREATE TABLE "Images" ( "ID" INT 阅读全文

posted @ 2025-07-09 17:10 涂磊阅读(98) 评论(0) 推荐(0)

delphi10.3的TreeVivew从DB建树

摘要：通过网盘分享的文件：TreeViewFromDB.rar链接: https://pan.baidu.com/s/1ZJhxLBM_YQ07fpfga0hMmQ 提取码: v893 ExpressDBTreeView学习(06) procedure TForm1.AddChildNodes(TreeV 阅读全文

posted @ 2025-06-07 14:08 涂磊阅读(39) 评论(0) 推荐(0)

Delphi中Memo1左侧显示行号

摘要：通过网盘分享的文件：lineNumberV3.rar链接: https://pan.baidu.com/s/1TqgDDv6VDIeQGgNYhMzohg 提取码: ws4u 当前行号红色显示，5进制显示 01]拖一个PaintBox和Memo到界面上，PaintBox1与Memo1的字体相同，字体阅读全文

posted @ 2025-05-18 16:46 涂磊阅读(137) 评论(0) 推荐(0)

DBLookupCombobox实现下拉联动

摘要：DBLookupCombobox实现下拉联动通过网盘分享的文件：City.rar链接: https://pan.baidu.com/s/1L70ahH9iBjdydfLHGkLLEw 提取码: pmmd 这次用DBLookupCombobox实现省份-城市-地区的下拉联动，用以学习DBLookup 阅读全文

posted @ 2025-04-30 15:55 涂磊阅读(105) 评论(0) 推荐(0)

Delphi 10.3之 TCategoryPanelGroup

摘要：制作过程:先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel. Delphi 10.3之 TCategoryPanelGroup[1]: ChevronAlignment 等 Delphi 2009 之 TCa 阅读全文

posted @ 2025-04-16 10:46 涂磊阅读(66) 评论(0) 推荐(0)

为什么要用状态栏+Time1来提示memo1的错误提示信息

摘要：因为Memo1和Showmessage都是有焦点的，会同时运行，结果是，点了Showmessage的确认信息，Memo1的选择文本会取消，所以不能用Showmessage var aCode:integer; //记录 memo1错误代号 procedure TForm3.UpdateStatus 阅读全文

posted @ 2025-02-25 19:57 涂磊阅读(48) 评论(0) 推荐(0)

delphi tcolor 颜色转成网页颜色格式

摘要：procedure TForm3.ToolButton9Click(Sender: TObject); // 字体颜色 function ColorToHtml(DColor:TColor):string; var //delphi tcolor 颜色转成网页颜色格式 tmpRGB : TCo 阅读全文

posted @ 2025-02-24 11:45 涂磊阅读(81) 评论(0) 推荐(0)

Delphi10.3下ProgressBar1的使用

摘要：Delphi10.3状态栏上显示进度条/图片 {三种方法等价} {1}ProgressBar1.Position:=ProgressBar1.Position+10; {2}ProgressBar1.StepBy(10); {3} ProgressBar1.Step:=10 ; ProgressBa 阅读全文

posted @ 2024-12-04 15:06 涂磊阅读(239) 评论(0) 推荐(0)

string转TStringList的ExtractStrings在Delphi10.3

摘要：var s: string; ACount,i: Integer; AStrings: TStringList; begin s := 'about: #delphi; #pascal, programming'; AStrings := TStringList.Create; ACount := 阅读全文

posted @ 2024-11-28 15:59 涂磊阅读(62) 评论(0) 推荐(0)

随笔分类 - Delphi2010