大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

常用的询问对话框包括

Posted on 2013-10-08 17:58  大悟还俗_2  阅读(333)  评论(0编辑  收藏  举报

在VCL下,常用的询问对话框包括

procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); 
begin 
  if Application.MessageBox('是否退出?', '询问', 
    MB_YESNO + MB_ICONQUESTION) = IDYES then 
  begin 
    Close; 
  end; 
end;

或者是:

uses 
  System.UITypes;

procedure TfrmMainVCL.btnMessageDlgClick(Sender: TObject); 
begin 
  if MessageDlg('是否退出?', mtConfirmation, [mbYes, mbNo], -1) = mrYes then 
  begin 
    Close; 
  end; 
end;

在FMX下,Application不再有MessageBox函数,只能使用MessageDlg函数,写法如下:

procedure TfrmMain.btncloseClick(Sender: TObject); 
begin 
  if MessageDlg('是否退出?', TMsgDlgType.mtConfirmation, 
    [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1) = mrYes then 
  Close; 
end;