Выбор в MessageDlg (задача на пару секунд)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int userRosponse = MessageDlg("Сдвинуть клавишу?", mtInformation,
                 TMsgDlgButtons() << mbYes << mbNo, 0);
 
    if (userRosponse == mbNo)
        return;
    else
        Button1->Left+=100;
}

 if (userRosponse == mrNo)

CheckBox->Parent(MessageDlg)

...
 
TIMERPROC SuperHook() //Конечно же это никакой не Hook =)
{
 KillTimer(Application->Handle,12345); //1 раз =)
 HWND hMsg=FindWindow(0,"Information");if(!hMsg)return 0; //Узнаем handle нашего окна с вопросом
 HWND hWndButton = CreateWindowEx(0, "BUTTON", "&Push Me", WS_CHILD, 0, 0,
        80, 25, hMsg, 0, HInstance, 0); //Попробуем что-нибудь на нём создать... 
  if(hWndButton)ShowWindow(hWndButton,SW_SHOW); //если получилось, покажем! 
  else return 0; //нет, жаль =(
 return 0; //...
} //Вот так работает, кнопка создаётся поверх диалога! Успех!!! НАДО ЭКСПЕРЕМИНТИРОВАТЬ!
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 SetTimer(Application->Handle,12345,100,(TIMERPROC)SuperHook); //Сработает сразу после появления
        int userRosponse = MessageDlg("Сдвинуть клавишу?", mtInformation,
                                 TMsgDlgButtons() << mbYes << mbNo, 0);
 
        if (userRosponse == mrNo)
                return;
        else
                Button1->Left+=100;
}
 
...

TModalResult CheckMessageDialog(AnsiString Message, AnsiString Caption,
  AnsiString CheckBoxCaption, bool *Checked,
  TMsgDlgType DlgType, TMsgDlgButtons Buttons)
{
   TForm *Dialog=CreateMessageDialog(Message, DlgType, Buttons);
   if (!Caption.IsEmpty()) Dialog->Caption = Caption;
 
   int LeftEdge=Dialog->ClientWidth;
   int TopEdge =Dialog->ClientHeight;
   if (Dialog->ControlCount>0) {
     for (int i = 1; i < Dialog->ControlCount; i++) {
       TControl *Ctrl=Dialog->Controls[i];
       if (Ctrl->Left < LeftEdge) LeftEdge=Ctrl->Left;
       if (Ctrl->Top  < TopEdge)  TopEdge =Ctrl->Top;
     }
   } else {
     LeftEdge=10;
     TopEdge=10;
   }
 
   TCheckBox * CheckBox = new TCheckBox(Dialog);
   CheckBox->Parent  = Dialog;
   CheckBox->Caption = CheckBoxCaption;
   CheckBox->Checked = *Checked;
   CheckBox->Left    = LeftEdge;
   CheckBox->Top     = Dialog->ClientHeight;
   CheckBox->Width   = Dialog->Canvas->TextWidth(CheckBox->Caption)+30;
 
   Dialog->ClientHeight = Dialog->ClientHeight + CheckBox->Height + TopEdge;
 
   if (CheckBox->Width + LeftEdge*2 > Dialog->ClientWidth)
     Dialog->ClientWidth = CheckBox->Width + LeftEdge*2;
 
   TModalResult Result = Dialog->ShowModal();
   *Checked = CheckBox->Checked;
 
   delete Dialog;
   Dialog=NULL;
   
   return Result;
}

bool checkv=true;  //checkbox  value
TModalResult res= CheckMessageDialog("Are you sure you want to do whatever you were supposed to do?",
                "The caption","Don't show this message again",&checkv,mtConfirmation,
                TMsgDlgButtons() << mbYes << mbNo  << mbIgnore);
 
ShowMessage("Check box " + AnsiString(checkv ? "checked":"not cheked") + "\n dialog result:" + AnsiString(res));

//...
HWND hWndButton = CreateWindowEx(0, L"BUTTON", L"&Push Me",
                                 WS_CHILD, 0, 0,80, 25,
                                 hMsg, 0, HInstance, 0); //Попробуем что-нибудь на нём создать... 
//...
  int userRosponse = MessageDlg(L"Сдвинуть клавишу?", mtInformation,
                                TMsgDlgButtons() << mbYes << mbNo, 0);
//...