码迷,mamicode.com
首页 > Windows程序 > 详细

DelphiXE7 FMX 退出程序写法!

时间:2015-02-08 20:42:24      阅读:208      评论:0      收藏:0      [点我收藏+]

标签:

// 退出确认...
procedure TMainForm.CornerButton11Click(Sender: TObject);
begin
  MessageDlg(‘本操作将从资金管理系统退出!‘+#13#10+‘确认是否进行退出处理?‘, System.UITypes.TMsgDlgType.mtInformation,
    [
      System.UITypes.TMsgDlgBtn.mbYes,
      System.UITypes.TMsgDlgBtn.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 退出程序写法!

标签:

原文地址:http://www.cnblogs.com/lantianhf/p/4280414.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!