Delphi2010 - 随笔分类(第5页) - 涂磊

DBGrid显示图片(13)

摘要：对应的编辑控件为ComboBoxEx1 procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawSta 阅读全文

posted @ 2024-01-21 14:02 涂磊阅读(121) 评论(0) 推荐(0)

StringGrid1单元格内绘图

摘要：var Rect: Trect; begin Rect:= bg.CellRect(4,3); bg.Canvas.Brush.Color:= clwhite; bg.Canvas.FillRect(rect); bg.Canvas.Draw( rect.Left +trunc(( rect.Rig 阅读全文

posted @ 2024-01-21 09:18 涂磊阅读(89) 评论(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 涂磊阅读(63) 评论(0) 推荐(0)

delphi10.3如何获得控件的On属性事件列表?

摘要：也可参考 cxRTTIInspector1学习(20) 用RTTI https://www.jianshu.com/p/784db6186e49 uses strutils, rtti, System.typinfo; procedure TForm2.FormCreate(Sender: TObj 阅读全文

posted @ 2023-12-24 20:09 涂磊阅读(39) 评论(0) 推荐(0)

Delphi 枚举转字符串

摘要：implementation Uses TypInfo; procedure TForm3.FormCreate(Sender: TObject); //定义枚举类型 type TDayOfWeek=(Monday,Tuesday,Wednesday,Thursday,FriDay,Saturday 阅读全文

posted @ 2023-12-24 18:38 涂磊阅读(177) 评论(0) 推荐(0)

delphi - 调整表单大小，同时保持纵横比

摘要：https://www.coder.work/article/5928583 在Form1的 OnCanResize 事件添加以下处理程序似乎对我来说效果很好: procedure TForm2.FormCanResize(Sender: TObject; var NewWidth, NewHeig 阅读全文

posted @ 2023-12-23 09:40 涂磊阅读(71) 评论(0) 推荐(0)

Delphi：循环语句for-in

摘要：https://www.jianshu.com/p/0fd88af44e4b 1.for-in 循环中，循环对数组，列表，字符串或其他有序类型的容器的每个元素进行操作。 2.打开IDE，新建VCL应用，添加一个button1，一个memo1，双击button1，编写代码： procedure 阅读全文

posted @ 2023-12-22 16:41 涂磊阅读(269) 评论(0) 推荐(0)

Delphi新语法IfThen

摘要：https://docwiki.embarcadero.com/Libraries/Sydney/en/System.StrUtils.IfThen function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): 阅读全文

posted @ 2023-12-21 15:42 涂磊阅读(305) 评论(0) 推荐(0)

(01)lazarus学习之下载安装_查找控件

摘要：从https://www.lazarus-ide.org/下载，类似Delphi7 如果安装第三包出了问题，可以点击下面恢复查找控件方法: 阅读全文

posted @ 2023-12-15 15:51 涂磊阅读(307) 评论(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 涂磊阅读(48) 评论(0) 推荐(0)

运行DOSCommand命令,然后获得返回文本tulaterDelphiIDE编译工具

摘要：链接：https://pan.baidu.com/s/1ezA9CLENAFLQ1SHwApm0BA 提取码：ccz2 通过网盘分享的文件：tulaterDelphiIDE_liteV2.rar链接: https://pan.baidu.com/s/1OIFqVKPSF48lvsFAk9eNgA?p 阅读全文

posted @ 2023-11-21 20:35 涂磊阅读(125) 评论(0) 推荐(0)

(07)FastReport书码ISBN的添加显示,类似地二维码也可以

摘要：生成二维码，也可以用DevExporess dxBarCode1书号二维码的生成(15) ,Delphi 用ZXIng生成二维码【PaintBox】,并保存为本地文件,添加至【Image】控件中 1]书码ISBN的添加显示 2]二维码也可以的添加显示 1]书码ISBN的添加显示 Applicatio 阅读全文

posted @ 2023-11-17 09:50 涂磊阅读(192) 评论(0) 推荐(0)

Log4Delphi日志学习

摘要：转载请注明出处：https://www.cnblogs.com/coder163/p/9309717.html https://log4delphi.sourceforge.net/tutorial.html Log4D下载：官网地址链接：https://pan.baidu.com/s/1xnb 阅读全文

posted @ 2023-11-16 16:05 涂磊阅读(245) 评论(0) 推荐(0)

Delphi 泛型类学习TList<Integer>

摘要：1]Delphi 10.3 2]Delphi 7 1]Delphi 10.3 https://www.cnblogs.com/bumpkin/p/17261247.html uses generics.collections; var List: TList<Integer>; FoundIndex 阅读全文

posted @ 2023-08-18 08:55 涂磊阅读(423) 评论(0) 推荐(0)

从M个数取N个，和为固定值

摘要：链接：https://pan.baidu.com/s/1ah8Slfn9JP7uGNjEkViZig 提取码：yp15 从数组中取出任意个数，求和为指定值的解 var TestArr:TArray<integer>; procedure CalSum(Arr:TArray<Integer>;Res: 阅读全文

posted @ 2023-07-27 15:44 涂磊阅读(103) 评论(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 涂磊阅读(109) 评论(0) 推荐(0)

VCL下ListBox自画,Lazarus也一样

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

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

用Indy控件访问HTTPS

摘要：https://www.cnblogs.com/guorongtao/p/11976664.html 访问 Web 网站，最简单用法直接使用 TIdHTTP 控件：例如：AA := IdHTTP1.Get('www.baidu.com.'); 访问 https 的网站，需要 SSL 库。在 Wi 阅读全文

posted @ 2023-05-25 16:02 涂磊阅读(428) 评论(0) 推荐(0)

DevExpress21控件安装(01)

摘要：DevExpress21链接：https://pan.baidu.com/s/18oZlwKDqS_OKaM5p_Q8cqw 提取码：vi6h DevExpress19,链接：https://pan.baidu.com/s/1bhgx8SevaZLoUisp2-vM6g 提取码：v0rj 0]一定要阅读全文

posted @ 2023-03-26 13:27 涂磊阅读(280) 评论(0) 推荐(0)

基于uniGUI的第三方控件Unifalcon的叠层提示UniFSiGrowl1(60)

摘要：Windows下类似功能实现：dxAlertWindowManager1 弹出提示窗口(09) Unifalcon是一组基于unigui的第三方UI组件，是一套漂亮实用的UI控件，用这套控件可以轻易设计出漂亮美观的界面。 1]下载 2]安装 3]主要功能,叠层提示UniFSiGrowl1 链接：ht 阅读全文

posted @ 2023-02-21 15:21 涂磊阅读(1098) 评论(0) 推荐(0)

随笔分类 - Delphi2010