2022年3月21日 星期一

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

红鱼儿| 博客园_红鱼儿 |18:00:00

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

Delphi 11 ListView实现删除一行

红鱼儿| 博客园_红鱼儿 |10:03:00

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