メッセージダイアログをカスタマイズする方法を説明します。
CreateMessageDialog関数を使用すると、メッセージダイアログを作成することができます。
TForm* dialog = CreateMessageDialog("ファイルを保存します。よろしいですか?",
mtWarning, TMsgDlgButtons() << mbYes << mbNo);
dialog->Caption = "ファイルの保存";
dialog->Height = 152;
CreateMessageDialog関数で作成したフォームにコンポーネントを配置することで、独自のダイアログを作成できます。
TCheckBox* checkbox = new TCheckBox(dialog);
checkbox->Parent = dialog;
checkbox->Caption = "バックアップファイルを作成する(&S)";
checkbox->Left = 24;
checkbox->Top = 88;
checkbox->Width = 200;
メッセージダイアログにチェックボックスを配置するサンプルです。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm* dialog = CreateMessageDialog("ファイルを保存します。よろしいですか?",
mtWarning, TMsgDlgButtons() << mbYes << mbNo);
dialog->Caption = "ファイルの保存";
dialog->Height = 152;
TCheckBox* checkbox = new TCheckBox(dialog);
checkbox->Parent = dialog;
checkbox->Caption = "バックアップファイルを作成する(&S)";
checkbox->Left = 24;
checkbox->Top = 88;
checkbox->Width = 200;
if (dialog->ShowModal() == ID_YES)
{
if (checkbox->Checked) {
//チェックされたときの処理
} else {
//チェックされなかったときの処理
}
}
delete dialog;
}