摘要： 关于 Delphi Xe10 FMX 启动参数 需要在启动窗口前来调用 也就是在bar文件修改 如果参数多可以用json来 uses system.SysUtils; var param: string; begin if FindCmdLineSwitch('p') then FindCmdLin 阅读全文

摘要： System.JSON ISuperJSOn mORMETJSON QJSON 测试 我在测试时发现系统自带的JSON 占用内存大一但多了就会出现内存泄漏的问题 我用的Flst<T> 来测试， 为了方便大家，把代码发出来 窗体类 object Form1: TForm1 Left = 0 Top = 阅读全文

摘要： 关于FMX 单击出来右键菜单，并显示在当前下面 procedure TForm1.btn6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); varLP: TPointF;begin 阅读全文