
Последние записи
- Геопозиция
- Колесо фортуны на javascript
- Вычислить формулу Тейлора на ассемблере
- Отловить число загружаемых файлов php
- Вывод текста и числа в одной строке
- Wapuula — лучший многоцелевой WordPress шаблон бизнес тематики
- Прокрутка внутри элемента
- Маркетплейс TemplateMonster приглашает к сотрудничеству разработчиков шаблонов
- Программа по отправке и принятию UDP пакетов
- Шаблон Monstroid 2 стал лучшим решением для создания WordPress сайтов

29th
Авг
Сохранение при выходе из программы
Posted by Chas under Delphi
Работаю над текстовым редактором. Сохранение по идее должно идти по такой схеме:
«Если RichEdit заполнен, то Спрашиваем, иначе просто Выход»
Stilet
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (trim(RichEdit.Lines.Text)<>'') and
(MessageDlg('Документ не сохранен. Сохранить документ?', mtInformation, [mbYes, mbNo], 0) = mrYes ) and
(SaveDialog1.Execute) then
richedit1.Lines.SaveToFile(SaveDialog1.FileName)
end;