4. Событие Onclick команды меню Файл  Новый.

   1. Обработайте события меню. Для начала выберите в меню команду ФайлНовый, в результате чего будет создана процедура обработки события OnClick.

События возникают при каком-либо действии с компонентом. В частности, событие Onclick возникает после щелчка на компоненте мышью. Для создания процедуры обработки события, определенного для компонента по умолчанию, достаточно дважды щелкнуть на нем мышью в конструкторе форм. Обработчик того или иного события можно также создать, дважды щелкнув мышью на соответствующем поле вкладки Events ("события") окна Object Inspector.

2. Введите код, выделенный ниже полужирным шрифтом:

procedure TForml .N2Click (Sender:TObject);

begin

txt.Clear;

end;

Метод Clear ("очистить") просто очищает содержимое блокнота.

5. Событие Onclick команды меню Файл  Открыть

Повторите описанный выше процесс для команды Файл Открыть и создайте следующий обработчик события:

procedure TForml .N3Click (Sender:TObject);

begin

if not OpenDialog1.Execute

then ShowMessage (‘Файл не выбран!’)

else txt.Lines.LoadFromFile (OpenDialog1.FileName)

end;

Метод Execute ("выполнить") вызывает диалоговое окно открытия файла. Если пользователь выбрал какой-либо файл, то его содержимое загружается в наш блокнот. В противном случае на экране будет отображено сообщение "Файл не выбран".

6. Событие OnClick команды меню Файл Сохранить

Теперь создайте обработчик события OnClick для команды меню ФайлСохранить:

procedure TForml.N4Click(Sender: TObject);

begin

if not SaveDialog1.Execute

then ShowMessage('Файл не сохранен!^’)

else txt.Lines.SaveToFile(SaveDialog1.FileName);

end;

Эта процедура похожа на ту, которая использовалась при открытии файла, но в данном случае используется компонент диалогового окна сохранения (SaveDialogl) и свойство TMemo.Lines для записи содержимого компонента txt в файл.

7. Событие OnClick команды меню Файл  Выход

В обработчике события команды меню Файл Выход напишите halt:

procedure TForml.N6Click(Sender: TObject);

begin

halt;

end;

4. Событие OnCreate формы

Для того чтобы в блокноте можно было открывать текстовые файлы, создайте процедуру обработки события OnCreate формы.

Событие формы OnCreate возникает в момент создания формы при запуске программы. В данном случае обработчик этого события можно создать только через инспектор объектов.

1. Для этого выберите в раскрывающемся списке, расположенном у верхнего края окна Object Inspector, элемент Forml, перейдите на вкладку Events и дважды щелкните мышью в поле OnCreate.

2. Добавьте в этот обработчик следующий код:

procedure TForml.FormCreate(Sender: TObject);

var

Str: String;

i: Integer;

begin

if (ParamCount > 0) then

begin

Str := ParamStr(1);

for i := 2 to ParamCount do

Str := Str + ′ ′ + ParamStr(i);

end;

if Str <> ' ' then txt.Lines.LoadFromFile(Str);

end;

В процедуре объявлены две переменные: Str (тип String строковая) и i (тип Integer — целое число). Вначале выполняется проверка, передаются ли нашей программе параметры в виде пути к файлу. Если да (ParamCount > 0), то сохраняем имя этого файла в переменной Str (цикл for используется для того, чтобы учесть пробе­лы в пути и имени файла) и затем загружаем его содержимое в наш блокнот.