摘要:
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); p... 阅读全文