C++ Builder下如何使用Android对话框

在讲解Android的对话框之前，我们先来看下面这个例子：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ShowMessage("OK1");
 ShowMessage("OK2");
 ShowMessage("OK3");
 ShowMessage("OK4");
}

 

点击按钮后，四个对话框连续出现，最后一个对话框显示在最上面。并不是象Ｗindows的程序那样，出现一个后，点击确定才会出现下一个。
这是因为Android系统不支持阻塞对话框，对话框出现后立即返回，执行后面的代码。

那么把ShowMessage换成MessageDlg函数又会怎么样呢？再看下面的例子：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int n = MessageDlg(L"这是一个演示对话框", TMsgDlgType::mtConfirmation, TMsgDlgButtons()<<TMsgDlgBtn::mbYes<<TMsgDlgBtn::mbNo<<TMsgDlgBtn::mbCancel, 0);
 if(n == mrYes)
  ShowMessage(L"您选择了是");
 else if(n == mrNo)
  ShowMessage(L"您选择了否");
 else if(n == mrCancel)
  ShowMessage(L"您选择了取消");
}

点击按钮后，将会提示“Blocking dialogs not implemented on this platform”，该平台不支持阻塞对话框。
同样，MessageBox和InputBox函数在Android系统下都无法被执行。

如果我们需要在对话框显示之后，接受用户的选取或输入操作，再根据用户的选择运行不同的代码，应该如何做呢？这就需要给MessageDlg或InputBox传入一个类对象，该类对象继承自TInputCloseDialogProc，由用户自己实现，并在其中编写对话框显示之后的下一步执行代码。具体过程如下：

1. 以C++ Builder XE7为例，创建一个Android工程

2. 放置四个按钮，分别是信息对话框、询问对话框、输入对话框和退出。

3. 为这四个对话框分别编写四个实现类，用于执行对话框中的选择操作：

//---------------------------------------------------------------------------
class TMyDialogProc1 : public TCppInterfacedObject< TInputCloseDialogProc >
{
private:
	TForm *FForm;
public:
	__fastcall TMyDialogProc1(TForm * AForm) : FForm(AForm){}

	void __fastcall Invoke(const System::Uitypes::TModalResult AResult)
	{
		if(AResult == mrOk)
		{
			ShowMessage(L"您点击了OK");
		}
	}
};
//---------------------------------------------------------------------------
class TMyDialogProc2 : public TCppInterfacedObject< TInputCloseDialogProc >
{
private:
	TForm *FForm;
public:
	__fastcall TMyDialogProc2(TForm * AForm) : FForm(AForm){}

	void __fastcall Invoke(const System::Uitypes::TModalResult AResult)
	{
		if(AResult == mrYes)
		{
			ShowMessage(L"您选择了确定");
		}
		else if(AResult == mrCancel)
		{
			ShowMessage(L"您选择了取消");
		}
	}
};
//---------------------------------------------------------------------------
class TMyDialogProc3 : public TCppInterfacedObject< TInputCloseBoxProc>
{
private:
	TForm *FForm;
public:
	__fastcall TMyDialogProc3(TForm * AForm) : FForm(AForm){}

	void __fastcall Invoke(const System::Uitypes::TModalResult AResult, const System::UnicodeString AValue)
	{
		if(AResult == mrOk)
		{
			ShowMessage(L"修改后的文字：" + AValue);
		}
	}
};
//---------------------------------------------------------------------------
class TMyDialogProc4 : public TCppInterfacedObject< TInputCloseDialogProc >
{
private:
	TForm *FForm;
public:
	__fastcall TMyDialogProc4(TForm * AForm) : FForm(AForm){}

	void __fastcall Invoke(const System::Uitypes::TModalResult AResult)
	{
		if(AResult == mrYes)
		{
			ShowMessage(L"您选择了退出程序");
			FForm->Close();  //关闭程序
		}
		else if(AResult == mrNo)
		{
			ShowMessage(L"您选择了取消退出");
		}
	}
};
//---------------------------------------------------------------------------

4. 在四个按钮的OnClick事件中，显示不同的对话框（注意最后一个参数）：

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	_di_TInputCloseDialogProc ADialogProc1 = new TMyDialogProc1(this);
	MessageDlg(L"您好，欢迎使用Android对话框。",
		TMsgDlgType::mtInformation,
		TMsgDlgButtons() << TMsgDlgBtn::mbOK,
		0,
		ADialogProc1
	);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
	_di_TInputCloseDialogProc ADialogProc2 = new TMyDialogProc2(this);
	MessageDlg(L"你确定要删除该文件吗？",
		TMsgDlgType::mtInformation,
		TMsgDlgButtons() << TMsgDlgBtn::mbYes << TMsgDlgBtn::mbCancel,
		0,
		ADialogProc2
	);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
	_di_TInputCloseBoxProc ADialogProc3 = new TMyDialogProc3(this);

	InputBox(L"输入",
		L"请输入文字：",
		L"默认文字",
		ADialogProc3
	);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
	_di_TInputCloseDialogProc ADialogProc4 = new TMyDialogProc4(this);
	MessageDlg(L"您确定要退出程序吗？",
		TMsgDlgType::mtWarning,
		TMsgDlgButtons() << TMsgDlgBtn::mbYes << TMsgDlgBtn::mbNo,
		0,
		ADialogProc4
	);
}
//---------------------------------------------------------------------------

5. 程序运行效果如图所示：