| | | | | |

2023年12月24日

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

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

2023年12月23日

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

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

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

2023年12月22日

uniGUI学习之表格和链接(76)

摘要： Delphi10.3如何在StringGrid某单元格下划线显示，并点击弹出新窗口拖一个UniHTMLFrame1到界面上 <table border="1" width="500" height="200" align="center" cellpadding="10" cellspacing= 阅读全文

posted @ 2023-12-22 17:11 涂磊阅读(320) 评论(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 涂磊阅读(319) 评论(0) 推荐(0)

2023年12月21日

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 涂磊阅读(350) 评论(0) 推荐(0)