Delphi7相关 - 随笔分类 - 涂磊

摘要：通过百度网盘分享的文件：五子棋_Delphi7.rar链接：https://pan.baidu.com/s/1vnziIUuXwbN-o5pfbGh_Mw 提取码：3avt 阅读全文

posted @ 2024-10-24 17:48 涂磊阅读(29) 评论(0) 推荐(0) 编辑

摘要：https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/using-owner-draw-combos-and-listbo 阅读全文

posted @ 2024-08-14 16:10 涂磊阅读(36) 评论(0) 推荐(0) 编辑

DBGrid之进度条显示

摘要：https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/customizing-tdbgrid-ch01lvl1sec11 阅读全文

posted @ 2024-08-12 15:18 涂磊阅读(54) 评论(0) 推荐(0) 编辑

异常显示在Memo1里，而不是弹出对话框

摘要：try except on E: Exception do begin OutResltMemo.Clear; OutResltMemo.Text := E.Message; end; end; 阅读全文

posted @ 2024-04-18 08:40 涂磊阅读(22) 评论(0) 推荐(0) 编辑

想在Delphi的Memo1控键的光标处插入一字串，如何实现？

摘要：Memo1.SelText := '可以加字符串'; 就是如此简单阅读全文

posted @ 2024-04-17 15:16 涂磊阅读(48) 评论(0) 推荐(0) 编辑

StringGrid1做数据控件的基本常用操作

摘要：procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var R: TRect; org: TPoint; begin if ARow>0 then 阅读全文

posted @ 2024-03-21 10:39 涂磊阅读(108) 评论(0) 推荐(0) 编辑

ClientDataSet1.Active 设为true弹出AVdsnap260.bpl错误的解决办法

摘要：Access violation at address 5134E27F in module 'dsnap260.bpl'. Read of address 00000000. 这是先装delphi10.3,再装Delphi7造成的。解决办法，将Midas.dll从C:\Program Files 阅读全文

posted @ 2024-02-27 11:43 涂磊阅读(13) 评论(0) 推荐(0) 编辑

ImageList1控件的使用原则

摘要：ImageList1的功能是设计时候，保存好一系列的图片。在设计加载后，绑定好使用控件，这里我们以TrayIcon1控件为例子要更改 TrayIcon1控件的图标属性，不能通过修改ImageList1，要通过更改 TrayIcon1控件的相关属性， TrayIcon1.IconIndex: 阅读全文

posted @ 2024-02-27 10:53 涂磊阅读(64) 评论(0) 推荐(0) 编辑

delphi7农历日历控件安装使用

摘要：控件下载，链接: https://pan.baidu.com/s/1-ZJFRMT2z5_kti0LX7bHCw 提取码: 2anv Delphi7 在File菜单下，选择”OPEN…”打开ChnCalendars.dpk文件弹出下面错误时：'2004-1-1' is not a valid da 阅读全文

posted @ 2024-02-22 16:24 涂磊阅读(42) 评论(0) 推荐(0) 编辑

解决Delphi7编译工程时提示Internal error:LA30、Access violation at address xxxxxxxx in module ‘RLINK32.DLL‘错误

摘要：https://blog.csdn.net/gust2013/article/details/125258100 阅读全文

posted @ 2024-02-11 19:29 涂磊阅读(91) 评论(0) 推荐(0) 编辑

Delphi10.3的DBGrid之外键显示(07)

摘要：要在设计的时候，界面上显示值 procedure TForm13.FDQuery1idGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.AsInteger =1 then text:='一阅读全文

posted @ 2024-01-04 21:23 涂磊阅读(36) 评论(0) 推荐(0) 编辑

VCL可视控件的鼠标拖动移动

摘要：procedure TForm2.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releaseCapture; ListBox1.Perform(W 阅读全文

posted @ 2023-11-22 15:59 涂磊阅读(27) 评论(0) 推荐(0) 编辑

带历史记忆，并模糊带出功能的Edit

摘要：1]直接模糊带出功能链接：https://pan.baidu.com/s/1cST-NSoy2ZFh-FQ44L3XxA提取码：rgca 2]汉字拼音带出要手动编辑EXE目录下的History.txt文件通过网盘分享的文件：CoboboxLike5.rar链接: https://pan.ba 阅读全文

posted @ 2023-07-22 19:36 涂磊阅读(73) 评论(0) 推荐(0) 编辑

VCL下ListBox自画,Lazarus也一样

摘要：很简单的ListBox自画最终效果图：Ｌazarus也一样 ListBox的两个设置：自画事件：ListBox1DrawItem procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect 阅读全文

posted @ 2023-06-15 16:17 涂磊阅读(91) 评论(0) 推荐(0) 编辑

uniGUI学习之随机验证码生成及判断(59)

摘要：效果图： uses AuthenticodeGenerate, ExtCtrls; AuthenticodeGenerate.pas 链接：https://pan.baidu.com/s/1M7xKHDRDf1KI8tRPTFmr_g 提取码：xssl unit AuthenticodeGenera 阅读全文

posted @ 2023-02-15 11:45 涂磊阅读(379) 评论(0) 推荐(0) 编辑

如何在StringGrid某单元格下划线显示，并点击弹出新窗口

摘要：uniGUI学习之表格和链接(76) 效果图： 0]设置StringGrid1的DefaultDrawing设为False; 1]设置StringGrid1DrawCell事件为： begin if (ACol = 0) and (ARow = 1) then begin // 某链接单元格下划阅读全文

posted @ 2023-02-13 17:09 涂磊阅读(180) 评论(0) 推荐(0) 编辑

在线编译 pascal

摘要：https://c.runoob.com/compile/73 阅读全文

posted @ 2021-06-15 18:50 涂磊阅读(161) 评论(0) 推荐(0) 编辑

获得注音和音调，以及繁转简

摘要：Delphi7开发 1、在程序中，文件拖放入，获得文件名 2、注音：功能考虑到多音字的处理。（右键调出）3、繁转简：含常用繁体词组=> 简体词汇。最长达12个字的词组转换（可根据功能再加长)，词组对应表来自：维基百科 http://zh.wikipedia.org/zh-cn/MediaWik 阅读全文

posted @ 2020-11-23 19:06 涂磊阅读(207) 评论(0) 推荐(0) 编辑

delphi 判断目录是否存在

摘要：delphi7 if not DirectoryExists(Edit1.Text) then 判断目录是否存在 begin //判断目录不存在 end; delphi 10.3 uses FileCtrl; procedure TForm4.FormCreate(Sender: TObject); 阅读全文

posted @ 2020-11-16 18:27 涂磊阅读(473) 评论(0) 推荐(0) 编辑

Delphi7开发简单文件传输

摘要：1.安装 Tclientsocket, Tserversocket控件菜单component->Install Packets 按Add按钮，选择delphi目录里的bin目录下的Delphi7是dclsockets70.bpl(delphi2010是 dclsockets140.bpl)，然后T 阅读全文

posted @ 2020-10-24 08:55 涂磊阅读(638) 评论(0) 推荐(0) 编辑

随笔分类 - Delphi7相关

搜索

随笔分类 (685)