Delphi2010 - 随笔分类 - 涂磊

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

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

posted @ 2026-01-17 14:09 涂磊阅读(1) 评论(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 涂磊阅读(4) 评论(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 涂磊阅读(33) 评论(0) 推荐(0)

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

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

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

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

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

posted @ 2025-07-31 17:03 涂磊阅读(14) 评论(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 涂磊阅读(89) 评论(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 涂磊阅读(32) 评论(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 涂磊阅读(127) 评论(0) 推荐(0)

DBLookupCombobox实现下拉联动

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

posted @ 2025-04-30 15:55 涂磊阅读(95) 评论(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 涂磊阅读(59) 评论(0) 推荐(0)

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

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

posted @ 2025-02-25 19:57 涂磊阅读(28) 评论(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 涂磊阅读(76) 评论(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 涂磊阅读(224) 评论(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 涂磊阅读(60) 评论(0) 推荐(0)

Delphi修改Panel圆角

摘要：procedure TForm10.FormCreate(Sender: TObject); begin Panel1.Color:=clHighlight; SetWindowRgn(Panel1.handle,CreateRoundRectRgn(0,0,panel1.width,Panel1. 阅读全文

posted @ 2024-11-27 18:26 涂磊阅读(178) 评论(0) 推荐(0)

TeeChart学习汇总

摘要：https://www.cnblogs.com/delphi-xe5/articles/5277070.html 如果TeeChart的bpl文件被删除，可以通过 repair Delphi10.3来自动修复因为第三方控件（FastReport,UniGUI)依赖于原生TeeChart的bpl 可阅读全文

posted @ 2024-11-21 18:20 涂磊阅读(293) 评论(0) 推荐(0)

delphi的MediaPlayer1使用

摘要：音频、视频阅读全文

posted @ 2024-11-20 20:04 涂磊阅读(69) 评论(0) 推荐(0)

无界面，mciSendString播放MP3

摘要：uses mmSystem; procedure TForm2.Button1Click(Sender: TObject); begin mciSendString('play D:\music\18赵海洋-夜空的寂静(钢琴曲).mp3',nil,0,0); end; MP3路径不能有空格，如果有，阅读全文

posted @ 2024-11-20 15:56 涂磊阅读(42) 评论(0) 推荐(0)

BMP转JPG，PNG

摘要：BMP转JPG uses Vcl.Imaging.jpeg//涂磊添加 20241113 procedure TSimpleGraph.SaveAsJPEG(const Filename: String); //涂磊 BMP 转 JPG 添加20241113 var Bitmap: TBitmap; 阅读全文

posted @ 2024-11-14 08:57 涂磊阅读(29) 评论(0) 推荐(0)

随笔分类 - Delphi2010