Как сделать окно, запрашивающее о сохранении данных?

@BATYRHAN · Регистрация: 03.04.2016

Author24 — интернет-сервис помощи студентам

например пользователь использующий мою программу загрузил изображения, и при след входе в программу загруженное изображения стояло. Желательно что бы при выходе из программы оно у меня запрашивала "хотите ли вы сохранить изменения " и кнопки "да" "нет"

@Puporev · 03.04.2016, 17:54

Например так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var temp:word;
begin
 temp:=MessageBox(Form1.Handle,
 PChar('Вы хотите сохранить изменения?'),
 PChar('Моя программа'), MB_YESNO);
 if temp=idyes then
  begin
  // сохранить
   close;
  end
 else close;
end;

@krapotkin · 04.04.2016, 08:46

Delphi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if application.MessageBox('Вы хотите сохранить изменения?', 'Требуется подтверждение'), MB_YESNO)=idyes then
 begin
  // сохранить имя файла с изображением в ini файл например
 end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // загрузить имя файла с изображением из ini файла 
  // если такой файл существует, загрузить его
end;

@BATYRHAN 0 / 0 / 0 Регистрация: 03.04.2016 Сообщений: 3
		1
	Как сделать окно, запрашивающее о сохранении данных? 03.04.2016, 16:58. Показов 1312. Ответов 2 Метки нет (Все метки) например пользователь использующий мою программу загрузил изображения, и при след входе в программу загруженное изображения стояло. Желательно что бы при выходе из программы оно у меня запрашивала "хотите ли вы сохранить изменения " и кнопки "да" "нет" 0

	04.04.2016, 08:46

Как сделать окно, запрашивающее о сохранении данных?

Решение