DelphiXE7 FMX 退出程序写法!

// 退出确认...
procedure TMainForm.CornerButton11Click(Sender: TObject);
begin
  MessageDlg(‘本操作将从资金管理系统退出!‘+#13#10+‘确认是否进行退出处理?‘, System.UITypes.TMsgDlgType.mtInformation,
    [
      System.UITypes.TMsgD*n.mbYes,
      System.UITypes.TMsgD*n.mbNo
    ], 0,
    procedure(const AResult: TModalResult)
    begin
      if AResult = mrYES then
         begin
            //
            // 善后处理并退出...
            timer.Enabled:=false;
            Cds1.Close;
            cds2.Close;
            cds3.Close;
            rights.Free;
            grid1.RowCount:=0;
            grid2.RowCount:=0;
            grid3.RowCount:=0;
            grid4.RowCount:=0;
            mbconn.Disconnect;
            close;
         end;
    end);
end;

DelphiXE7 FMX 退出程序写法!

上一篇:WinSocket的select函数的用法(windows套接字比较研究)


下一篇:FBReaderJ学习笔记(二):PopWindow实现自定义阅读页菜单