procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageDlg('Вы действительно хотите выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=IDYes // по-английски
CanClose := MessageBox(Application.Handle,'Вы действительно хотите выйти из программы?','Предупреждение',MB_YESNO)=ID_YES; //по-русски
end;
|