Уроки по Delphi



         

Procedure TChildForm.Memo1Change(Sender - часть 2


   end else

   begin // 2:

   Res:=Application.MessageBox('Вы желаете сохранить изменения?','Вопрос',MB_YESNOCANCEL + MB_ICONQUESTION);

   // вопрос на сохранение

   if Res=IDYES then // нажата кнопка "Да"

   begin

   ChildForm.BringToFront; // Расположить данное окно выше всех (сделать активным)

   MainForm.N4Click(Sender); // Вызвать процедуру "Сохранить"

   if Memo1.Tag=1 then CanClose:=false;

   // если пользователь все-таки не сохранил файл, то окно не закрывать

   end;

   if Res=IDNo then CanClose:=true; // если "Нет", то можно закрыть

   if Res=IDCANCEL then CanClose:=false; // если "Отмена", то не закрывать

   end;

end;

Находясь в редакторе кода в файле ChildUnit необходимо подключить модуль главной формы MainUnit через пункт меню "UseUnit".

Аналогом команды MessageBox в Delphi есть команда MessageDLG. Более подробную информацию как по этой, так и по другой можно прочитать в справочной системе. Старайтесь всегда при неизвестных командах пользоваться подсказкой в справочной системе. Надо, чтобы указатель (курсор) находился на интересующем вас слове, и нажать комбинацию клавиш Ctrl+F1.

Архив примера текстового редактора с сегодняшними изменениями вы можете забрать тут.

С уважением, ведущий уроков Semen semen@krovatka.net




Содержание  Назад  Вперед