[lmikle]

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

а можно организовать появление крошечной формы form2 с запросом "вы действительно хотите выйти? Да/ Нет" при наступлении события formClose формы Form1?
Я делала так, только оно не работало: form1 просто закрывалась

Код:

    

в Unit1

 procedure TForm1.FormClose (Sender: TObject; var Action: TCloseAction);
       begin
             form2.show;
       end;  

в Unit2 (подтверждение выхода)

procedure TForm2.Button1.Click( Sender: TObject);
     begin
             application.terminate;
     end;

procedure TForm2.Button1.Click( Sender: TObject);
     begin
              form2.close;
     end;

Нужно садиться на OnCloseQuery:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('Ðåàäüíî âûéòè?',mtConfirmation,[mbYes,mbNo],0) = mrYes;
end;