Delphi XE5 for Android (三)
2013-10-07 21:02
369 查看
在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;
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;
相关文章推荐
- Delphi XE5 for Android (六)
- 解决 Delphi XE5 写Android程序的No resource identifier found for attribute... 错误【转】
- Delphi XE5 for Android (四)
- delphi xe5 中TMemo控件的应用——for android
- Delphi XE5 for Android (一)
- Delphi XE5 for android 使用 BITMAP STYLE DESIGNER 改变控件背景
- Delphi XE5 for Android (二)
- delphi xe5 中TMemo控件的应用——for android
- Delphi XE5 for Android (六)
- Delphi XE5 for Android (三)
- Delphi XE5 for android 调用Java类库必看的文件
- Delphi XE5 for Android 启动无黑屏等待总结
- Delphi XE5 for Android (八)
- Delphi XE5 for Android (一)
- Delphi XE5 for Android (一)
- Delphi xe5 for android 地理定位GPS
- Delphi XE5 for Android (四)
- Android v4.4 KitKat Style for RAD Studio and Delphi XE5
- Delphi XE5 for Android (二)
- Delphi XE5 for Android (二)