Реферат: Записная книжка на Delphi 7

2. «Копировать», «Вставить», «Вырезать»

3. «Поиск»

4. «Шрифт»

5. «Дата и время»

6. «Media Player», «CD-Rom», «Знакомые», «Напомнить о…»

Так как кнопки расположены по порядку, то просто «перетащим» Separator на конец каждой группы кроме последней.

Перейдём к созданию часов.

Берём с закладки Win32, палитры компонентов, компонент CoolBar и перетащим его на форму. CoolBar автоматически поднимется к ToolBar’ у. Перенесём с закладки Standard компонент Label на CoolBar и разместим её ближе к концу CoolBar ’a.

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

Рис. 1.5

Скомпилированный и запущенный

проект «Записная книжка»

- 8 -

Описание процедур и функций компонентов главной формы

Заполнения компонента MainMenu1.

Меню «Файл»

1. “Новый”

Так как при создании нового файла будет открываться окно для сохранения нового файла на жесткий диск, то нам нужен компонент SaveDialog с закладки Dialogs . Заходим с главной формы Файл|Новый откроется Окно Редактора Кода и в него вставляем следующий код с комментариями, после слова Begin :

if savedialog1.Execute then begin // Запустить окно сохранения файла

memo1.Lines.SaveToFile(savedialog1.FileName+'.not'); // Сохранить предыдущий текст с

//именем которое ввели в окне сохранения файла

memo1.Clear(); // Очистить компонент Memo от предыдущего текста

end;

s:=savedialog1.FileName+'.not' ; // занести в переменную S имя файла (для открытия файла, когда программу вновь запустят и для сохранения в когда программа работает).

Настроим фильтр файлов (типы файлов в которые можно сохранять файлы), для это в SaveDialog1 настроим свойство Filter : Filter Name : ‘Файлы программы’; Filter : ‘*.not’.

2. “Открыть”

Для открытия файлов в Delphi есть компонент OpenDialog. Перетащим этот компонент с закладки Dialogs на форму и сразу пропишем его свойство Filter так как и в SaveDialog. Заходим Файл|Открыть и вставляем этот код, после слова Begin:

if opendialog1.Execute then // Открыть окно открытия файла

memo1.Lines.LoadFromFile(Opendialog1.FileName); // Загрузить в Memo1 файл

S:=OpenDialog1.FileName; // занести в переменную S - имя файла, для открытия когда

//программу вновь запустят и для сохранения изменений в процессе выполнения

//программы

3. “Сохранить”

Вставить этот код в свойство OnClick кнопки:

memo1.Lines.SaveToFile(s); // сохранить содержания компонента Memo1 в файл с

//именем которого хранится в переменной S

4. “Экспорт данных…”

Для этого нужен ещё один компонент SaveDialog и так как файл будет сохраняться в «Текстовый документ», то в свойстве Filter , компонента SaveDialog 2, нужно ввести: Filter Name : ‘Текстовый документ’, а Filter : ‘*.txt’. Теперь вставить следующий код в кнопку:

if SaveDialog2.Execute then // запустить окно сохранения файла

- 9 -

memo1.Lines.SaveToFile(Savedialog2.FileName+'.txt'); //сохранить файл с расширением

// txt

5. “Выход”

Для закрытия программы в Delphi есть один оператор CLOSE. Вставим этот оператор в кнопку.