OpenDialog, SaveDialog, FontDialog из вкладки Dialog.

Если хотите, то можете как и я сделать фоновую картинку. Но итоге у нас должно получится примерно такая вот форма:

Дальше щелкните дважды по MainMenu(которая находится в форме). В появившемся окне щелкните по пунктирному прямоугольнику и назовите его "Файл". Если Вы забыли как переименовывать объекты, то напомню: Пишем "Файл" в разделе Caption:

Таким образом постройте следующее меню:

Войди или зарегестрируйся!




Урок 8: Делаем текстовой редактор

Вспомните урок 6. Думаете я просто так написал его? Создание той бессмысленной программы поможет нам в этом уроке сделать текстовой редактор. Если Вы вникали в суть предыдущих уроков, то в этом уроке все будет очень легко.

Что будет в программе?
В программу мы воткнем все простые функции. Это: "Копировать", "Вставить", "Вырезать", "Создать новый документ" и т. д. Все эти функции это как бы диалог между пользователем и программой. Соответственно, объекты будем брать из вкладки Dialog. Уже что то новое.

Нам понадобится:
OpenDialog, SaveDialog, FontDialog из вкладки Dialog.



Переходим снова во вкладку Standart и оттуда берем:
MainMenu, Memo.



Если хотите, то можете как и я сделать фоновую картинку. Но итоге у нас должно получится примерно такая вот форма:



Дальше щелкните дважды по MainMenu(которая находится в форме). В появившемся окне щелкните по пунктирному прямоугольнику и назовите его "Файл". Если Вы забыли как переименовывать объекты, то напомню: Пишем "Файл" в разделе Caption:



Таким образом постройте следующее меню:



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

Начнем с функции "Новый документ". Его название(не визуальное) должно быть N2. Переходим во вкладку "События" и в разделе OnClick пишем N2Click. В остальных случаях мы будем делать так же.

Потом кликните по самому коду(pas) и между

procedure TForm1.N2Click(Sender: TObject);
begin

и

end;

Пишем следующий код:

Memo1.Lines.Clear;

Этот код просто стирает все, что было написано в объекте Memo1. Поэтому функцию новый документ, можно скорей назвать "Стереть".


По такому же принципу программируем функцию "Сохранить документ". Только теперь прописываем вместо Memo1.Lines.Clear другой код:

With SaveDialog1 do
Begin
If Execute then Exit;
Memo1.Lines.SaveToFile (FileName);
End

Этот код сохраняет все, что написано в объекте Memo1.

Ну а с функцией "Выйти" мы уже встречались. Просто прописываем

Close;

С этим все легко. Но теперь пора перейти к "правке". С "Правкой" все так же. Первая функция в "Правке" это "Вставить". Прописываем код:

Memo1.PastleFormClipboard;

Функция "Копировать" почти ничем не отличается:

Memo1.CopyToClipboard;

Функция "Вырезать" тоже похожа на "Копировать"

Memo1.CutToClipboard;


Ну и наконец переходим к "Тексту". Программируем функцию "сменить шрифт". Самое смешное что код этой функции на самом деле не такое огромный:

With FontDialog1 do
Begin
If not Execute then Exit;
Memo1.Font:= Font;
End


Поздравляю! Ваша программа готова)