Сегодня: 22.05.2024г. 04:24
http://professional-pc.ucoz.ru/
Навигация
Рубрики
Категории
Уроки Delphi [15]
Программирование в Delphi [16]
Мини-чат
 
300

Открыть большой чат в окне
в окне сайта
Реклама
Разместить кнопку
Разместить кнопку
Разместить кнопку
Урок 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


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



Помогли ли вам наши статьи?
Всего ответов: 465


Источник:
Категория: Уроки Delphi | Добавил: BRESS (25.03.2011) | Автор: EW
Просмотров: 632 | Комментарии: 0 | Теги: | Рейтинг: 0.0/0
>Всего комментариев>: 0
Авторизация
Опрос
Оцените мой сайт
Всего ответов: 46
Online
Онлайн всего: 1
Гостей: 1
Пользователей: 0

Статистика


CY-PR.com
© 2024 Professional-PC.Ucoz..Ru