Блокнот(Delphi)

[tane]

Например.Кнопка Сохранить как: ставим на RichEdit SaveDialog(вкладка Dialogs) и пишем код:

procedure TForm1.N5Click(Sender: TObject);
begin
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);
end;

Кнопка Шрифт:добавляем FontDialog(вкладка Dialogs) и пишем кодrocedure TForm1.N6Click(Sender: TObject);
begin
if FontDialog1.Execute then
RichEdit1.SelAttributes.Assign(Font Dialog1.Font);
end;

Аналогично нужно и для этих двух кнопок.

[doktor255]

Маленькая поправка. Вводим глобальный буллеон, запоминающий начало редактирования. Переключаем буллеон при OnChange, и если буллеон включён, то только тогда вызываем процедуру сохранения. В процедуре переключаем буллеон обратно.

[tane]

В стандартном блокноте при нажатии на кнопку создать выводит сообщение "Сохранить изменение в файле"..."?"(если мы ввели какой-то текст).Ну да ладно с Создать.
А с кнопкой Печать,что делать?

[doktor255]

Ну так погугли печать файлов средствами делфи.

[Stilet]

А с кнопкой Печать,что делать?

Вставь в нее:

RichEdit.Print;