очистить файл данных, предварительно спросив пользователя уверен ли он, да или нет, Yes - No

[digitalis]

Дельфи - 7 , ежели что.
Вопрос простой, как лопата: очистить файл данных, предварительно подумав: "Are You shure?"
Пролистав несколько выданных Гугулем источников, остановился на самом простом, как показалось:

procedure TForm1.MessageDlgButtonClick(Sender: TObject);
  var  rez : TModalResult;
  begin  rez := MessageDlg('Перед вами пример использования функции MessageDlg?', mtError, [mbOk, mbNo], 0); 
// выводим сообщение об ошибке с кнопками OK и NO 
 if rez = mrOk then ShowMessage('Вы согласились');
 // если нажали ОК, то появляется сообщение о том что мы согласились 
 if rez = mrNo then ShowMessage('Вы не согласились');
 // если нажали NO, то появляется сообщение о том что мы не согласились  end;

Но каким боком присобачить его к обработчику моей кнопки - не могу сообразить. Видно, порог вхождения уже высоковат для меня. Накропал такую убогую:

procedure TForm1.Button5Click(Sender: TObject);
begin
 But_Y.Visible := True ;
 But_N.Visible := True ;
end;

procedure TForm1.But_YClick(Sender: TObject);
begin
//  тут очистка файла данных
 But_Y.Visible := False ;
 But_N.Visible := False ;
end;

procedure TForm1.But_NClick(Sender: TObject);
begin
 But_Y.Visible := False ;
 But_N.Visible := False ;
end;

Изначально кнопки Yes No невидимы.
Работает, но ведь это - чистый колхоз. Кстати, пробовал эти две кнопки закинуть в GroupBox, но тоже облом: при свойстве этого бокса Visual False он-то невидим, но кнопки видны хучь убей. Видно, от простого перетаскивания он их не воспринимает своими, нужны какие-то манипуляции.
В общем, если бы кто пролил свет на этот Хатуль Мадан ShowModal - был бы ему очень благодарен.
Для ясности - прогу делал не для коммерческого использования, а чтоб наглядно отображать профиль АД своего ушатанного здоровья.

[evg_m]

Дельфи - 7 , ежели что.
Вопрос простой, как лопата: очистить файл данных, предварительно подумав: "Are You shure?"

есть форма (TForm1)
на ней есть кнопка "очистить" (buttonClear)
при нажатии хотим задать вопрос ("подумать")
и выполнить действия в соответствии с выбором варианта (yes|no)
ТАК ?

procedure TForm1.buttonClearClick(sender: TObject);
var
  res: integer;
begin
 // задаем вопрос ждем и получаем ответ res
  res:=MessageDlg('что хотим спросить'....);
   
 // после этого (здесь же) анализируем и действуем
  case res of 
  mrok, mryes: // при согласии
  mrno, mrcancel: // и при отказе
  else // и во всех прочих случаях
  end;
end;

[DIONISKA]

Так вопрос с модальными окнами или обработкой результата от MessageDlg?
Если нужно использовать MessageDlg, то

procedure TFrmMain.Your_buttonClick(Sender: TObject);
var
  mr:Cardinal;
begin
//на onclick вашей кнопки:
  mr:= MessageDlg('Вы уверены?', mtConfirmation, [mbYes, mbNo], 0);
//где mr- переменная которая принимает modal result от MessageDlg
//mtConfirmation - тип сообщения (mtConfirmation,mtWarning,mtError, и тп)
//[mbYes, mbNo] массив кнопок, в зависимости от него резульат будет принимать
// соответсввенно mrYes или mrNo или
  case mr of
    mrYes:begin
             //была нажата кнопка yes
          end;
    mrNo: begin
             //была нажата кнопка no
          end;
    mrCancel: begin
             //диалог просто закрыт
           end;
  end;
end;

Если нужно обработать результат от показа модальной формы, то как в прикреплении

[digitalis]

Сообщение от DIONISKA

Так вопрос с модальными окнами или обработкой результата от MessageDlg?

Я в этом не сильно копенгаген, для меня это всё едино - надо лишь заменить этот мой сельхозпосёлок на что-то общепринятое. MessageDlg - это системная функция? Компонент? В каком unit оно uses ? Или оно "само приползёт", достаточно лишь сформировать вызов функции?
Спасибо отозвавшимся. Материал для размышления есть, буду стараться вникнуть и прокачать свои старческие skills.
----------------
Вот ответили - и нашлось в сети боле-мене внятное описание вместо того бормотания, что получал ранее по ссылкам. Чудеса!

[FaTaL]

Как вариант лучше использовать виндовый MessageBox

[DIONISKA]

Сообщение от digitalis

В каком unit

для D6/D7/Lazarus юнит Dialogs, для версий поновее Vcl.Dialogs. В обоих случаях они обычно уже подключены в пустом VCL проекте.

[Alar]

digitalis, вы посмтоянно возмущаетесь как новички называют свои темы, а сами даже пример не показали, мне пришлось переименовывать на то как я понял ваш вопрос.