Текстовый редактор

@1Николай1 · Регистрация: 07.06.2011

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

• Разработать программный код для пункта Файл/ Новый. При выборе этого пункта текстовое окно очищается, если его содержимое было сохранено. Если сохранение не выполнялось, вывести запрос о подтверждении действия.
Пример диалогового окна для выбора дальнейших действий
if messagedlg('Уверены? ',mtconfirmation, [mbyes,mbno], 0) = mryes then … else …;

@digim0n · 12.11.2011, 17:35

и... не работает memo1.clear?

@Leoleshucov008 · 12.11.2011, 18:44

Используй событие memo oncahage
В переменную типа boolean занеси False при сохрвнении файла! И при нажатии на Файл/новый если она False то не нужно спрашивать сохренения! А при событии MemoOnchange в переменную заноси True

Добавлено через 1 минуту

При выборе этого пункта текстовое окно очищается

Memo1.Text:='';

@1Николай1 · 12.11.2011, 19:19 **[ТС]**

А поподробней расписать можно?

@*~<`PIK`>~* · 12.11.2011, 23:24

Delphi

var f:boolean;//переменная что означает изменялся ли документ,
                              //после последнего сохранения
procedure TForm1.Memo1Change(Sender: TObject);
begin
f:=True;
end;
 
procedure TForm1.N1Click(Sender: TObject);
var mrA:integer;
begin
If f=True then
  begin
  mrA := MessageDlg('Õîòèòå ñîõðàíèòü èçìåíåíèÿ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  If mrA = mrYes then//если ответ да
    begin
    //... сохраняешь
    f:=False;
    end else
  If mrA = mrNo then//если ответ нет
    begin
    Memo1.Clear;//просто очищаешь
    f:=False;
    end;
  end else//если f=False
    Memo1.Clear;//то просто очищаем
 
end;

Добавлено через 2 минуты
Я когда-то делал текстовый редактор(что-то на подобие блокнота). Если хочешь, могу выложить.

@1Николай1 · 13.11.2011, 19:28 **[ТС]**

*~<`PIK`>~*
Спасибо, очень помогло. =)

@1Николай1 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 23
		1
	Текстовый редактор 12.11.2011, 17:30. Показов 1326. Ответов 5 Метки нет (Все метки) • Разработать программный код для пункта Файл/ Новый. При выборе этого пункта текстовое окно очищается, если его содержимое было сохранено. Если сохранение не выполнялось, вывести запрос о подтверждении действия. Пример диалогового окна для выбора дальнейших действий if messagedlg('Уверены? ',mtconfirmation, [mbyes,mbno], 0) = mryes then … else …; 0

@digim0n 84 / 84 / 16 Регистрация: 11.11.2011 Сообщений: 259
	12.11.2011, 17:35	2
	и... не работает memo1.clear? 0

@Leoleshucov008 14 / 14 / 6 Регистрация: 23.02.2010 Сообщений: 221
	12.11.2011, 18:44	3
	Используй событие memo oncahage В переменную типа boolean занеси False при сохрвнении файла! И при нажатии на Файл/новый если она False то не нужно спрашивать сохренения! А при событии MemoOnchange в переменную заноси True Добавлено через 1 минуту При выборе этого пункта текстовое окно очищается Memo1.Text:=''; 1

@1Николай1 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 23
	12.11.2011, 19:19 [ТС]	4
	А поподробней расписать можно? 0

@1Николай1 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 23
	13.11.2011, 19:28 [ТС]	6
	~<`PIK`>~ Спасибо, очень помогло. =) 0