10 2023 档案

摘要:运行时动态设置控件(类)属性值 代码 运行时根据控件名称设置Alignment属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRt 阅读全文
posted @ 2023-10-27 18:50 txgh 阅读(160) 评论(0) 推荐(0) 编辑
摘要:运行时动态获取控件(类)属性值 代码 运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti 阅读全文
posted @ 2023-10-23 19:00 txgh 阅读(178) 评论(0) 推荐(0) 编辑
摘要:SQLite 设置自增列、重置自增列 创建表 设置主键自增 CREATE TABLE [tCeShi]( [ID] INTEGER PRIMARY KEY AUTOINCREMENT, [Name] TEXT(50), [Amount] REAL); 插入数据 主键位置写成NULL insert i 阅读全文
posted @ 2023-10-14 15:16 txgh 阅读(1663) 评论(0) 推荐(0) 编辑
摘要:自定义光标 代码 使用图像的方式 你可以使用两个位图(一个用于普通图像,一个用于遮罩图像)来创建图标,并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But 阅读全文
posted @ 2023-10-10 18:59 txgh 阅读(141) 评论(0) 推荐(0) 编辑
摘要:设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu 阅读全文
posted @ 2023-10-07 19:11 txgh 阅读(119) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示