红鱼儿

2022年3月21日

Delphi 11.1 解决高分屏下设计期窗口显示太小的问题

摘要： 升级到Delphi 11.1了，遇到个问题，当打开旧的VCL项目，显示的太小了，如下图一样： 第一步，用代码取得窗口在运行期的PixelsPerInch值。代码如下： procedure TMainForm.FormCreate(Sender: TObject); begin ShowMessage 阅读全文

posted @ 2022-03-21 18:01 红鱼儿 阅读(2275) 评论(1) 推荐(0)
Delphi 11 ListView实现删除一行

摘要： 实现下图的界面，用ListView显示一个数据集的内容： 点Delete删除所在行，下面是实现的代码： procedure TForm3.FormCreate(Sender: TObject); var I: Integer; begin //prepare dataset for I := 1 t 阅读全文

posted @ 2022-03-21 10:30 红鱼儿 阅读(793) 评论(0) 推荐(0)