Создание приложения Многооконный редактор
Ц
ель
занятия:
Изучение свойств и методов компонента
класса TRichEdit.
Создание интерфейса программы:
Для выполнения задания необходимо:
Создайте новый проект.
На форму Form1 поместите следующие компоненты (смотри рисунок справа).
Измените следующее:
свойство Name для главной формы – Fmain;
добавьте на форму меню (пункты меню смотрите справа).
Компонент PageControl1 – выравнивание по всей форме, свойство DockSite на true – приёмник документов.
Добавьте компонент StatusBar1 (статусная строка) – добавьте 3 панели в статусную строку.
Д
обавьте
на форму ImageList1,
добавьте рисунок для создания документа.Добавьте на форму компонент ToolBar1. Измените свойство images на ImageList1.
Добавьте в проект ещё одну форму, которую назовите FDoc. Установите свойство DragKind на dkDock, а свойство DragMode на dmAutomatic. Эта форма будет служить клиентом компонента PageControl1 главной формы.
Добавьте на форму FDoc компонент RichEdit1, измените его расположение – alClient.
Исключите форму FDoc из списка автоматически создаваемых (в меню Project – Option).
Сохраните проект, назвав модуль главной формы Umain, а подчинённой формы UDoc.
Добавьте на форму FDoc меню (пункты меню смотрите на рисунке справа).
Добавьте на форму ImageList1, добавьте рисунок для создания документа.
Д
обавьте
на форму компонент ToolBar1.
Измените свойство images на ImageList1.Для реализации сохранения и открытия документа добавьте на форму компоненты SaveDialog1 и OpenDialog1. Измените свойство Filter добавленных компонентов.
Разместите добавленные компоненты на форме Fmain.
Разместите добавленные компоненты на форме FDoc.
Описание используемых переменных в задаче:
В разделе описания переменных добавьте описание переменной FDoc: TFDoc;
Введите в раздел implementation в модуле Umain главной формы
uses UDoc,Math; //для доступа к модулю с формой FDoc
Var lDoc:tList; //объявление переменной типа tList – список, в котором буду храниться указатели на создаваемые пользователем формы документов
Напишите следующие программы для реализации приложения:
На событие создания формы напишите процедуру для создания списка LDoc
procedure TFmain.FormCreate(Sender: TObject);
begin LDoc:=TList.Create; end;
На событие OnDestroy формы FMain напишите процедуру:
procedure TFmain.FormDestroy(Sender: TObject);
begin
LDoc.Free;
end;
На событие выбора команды Новый из меню Файл напишите процедуру:
procedure TFmain.N2Click(Sender: TObject);
var
New:TFDoc; //создание формы типа TFDoc
begin
new:=TFDoc.Create(Application);
LDoc.Add(New);
New.Caption:='Документ'+IntToStr(LDoc.Count);
New.Show
end;
Свяжите написанную процедуру на нажатие кнопки Создать на панели инструментов.
Для каждой из кнопки меню создайте горячие клавиши (Ctrl+N – для создания нового документа, Ctrl+X – для закрытия приложения и др.).
Напишите процедуру для выбора в меню Файл команды Закрыть.
Создайте контекстные подсказки для каждой из кнопок на панели инструментов (в главной и в форме документов), например, для кнопки Создать для этого измените свойство Hint на Создать|Создание документа.
Напишите процедуру для отображения ярлычков и подсказок в статусной строке:
procedure TFmain.ToolButton1MouseMove(Sender: TObject; Shift: TShiftState;