Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 30 стр.

                                     - 30 -




Procedure TFormI.FormClose(Sender: TObject;
                             var Action: TCIoseAction);
Begin { запросить подтверждение на закрытие формы }
  if MessageDlg('Bы в самом деле хотите закончить работу ?',
                 mtConfirmation, [mbYes, mbNo],
                 9996) = mrYes { была нажата кнопка Yes }
  then
    Action := caFree { была нажата клавиша кнопка Yes - закрыть форму }
  else
    Action := caNone; { кнопка No - игнорировать закрытие формы }
End; {конец процедуры}

   C++Builder. В этом случае следует воспользоваться конструкцией

void _fastcall TForm1::FormClose(TObject *Sender,
                                   TCIoseAction &Action)
{
  switch (MessageBox(0,"Вы в самом деле хотите закончить работу ?",
                        "Предупреждение....",
                         MB_YESNO | MB_ICONWARNING | MB_TOPMOST))
   {
     case IDYES: Action=caFree; // нажата кнопка Yes
                 break;
     case IDNO: Action=caNone; // нажата кнопка No
                 break;

    } //конец блока SWITCH
} // конец функции FormClose

// допустимы также вызовы Delphi-подобных функций диалогов
// для задания кнопок на форме используются битовые поля -
// пример использования этих полей см. ниже
// if (MessageDlg('Bы в самом деле хотите закончить работу ?",
//                 mtConfirmation,
//                 TMsgDIgButtons() « mbYes « mbNo,
//                 9996) = IDYES)
// и так далее...

   Функция MessageDlgPos, кроме прочих, содержит параметр, позволяю-
щий указать положение формы на экране (MessageDlg всегда выводится в
центре экрана).
   Функция InputBox используется для вывода формы, содержащей строку
ввода и две кнопки - Ok и Cancel. Функция возвращает либо введенную
пользователем строку, либо описанную параметром ADefault строку.
   Функция InputQuery возвращает введенную пользователем строку или
строку ADefault при нажатии любой кнопки. Введенная пользователем стро-