Примечание: Объекты приложения подробно описываются в Главе 8.

    Определение TMyApplication имеет следующий вид:

     type
       TMyApplication = object(TApplication)
          procedure InitMainWindow; virtual;
     end;

    InitMainWindow отвечает за построение объекта окна, используемого в качестве основного окна программы. Этот объект основного окна хранится в поле объекта приложения MainWindow. Объекту приложения принадлежит объект основного окна, но эти два объекта не являются родственными в иерархии наследования.

     precedure TMyApplication.InitMainWindow;
     begin
       MainWindow := New(PWindow, Init(nil, 'Steps'));
     end;

    Пока программа Steps просто выводит на экран пустое окно, которое можно перемещать по экрану, изменять его размер, минимизировать, максимизировать и закрывать. Приведем полный листинг программы Steps, которую мы получили к данному моменту:

   
     program Steps;
     
     uses OWindows;

     type
       TMyApplication = object(TApplication)
          procedure InitMainWindow; virtual;
       end;

     procedure TMyApplication.InitMainWindow;
     begin
       MainWindows := New(PWindow, Init(nil, 'Steps'));
     end;

     var MyApp: TMyApplication;
     begin
       MyApp.Init('Steps');
       MyApp.Run;
       MyApp.Done;
     end.

    Пока программа Steps состоит из двух объектов - объекта приложения и объекта окна. Объект приложения (MyApp) является экземпляром TMyApplication - типом, производным от TApplication. Оконный объект, который содержится в поле MainWindow объекта MyApp, является экземпляром TWindow (общее окно ObjectWindows). Во всех программах, кроме простейших, вам нужно определить тип своего основного окна, соответствующий поведению приложения. В данном разделе мы выведем на экран основное окно, тип которого является производным от TWindow.

    Приложения: Более подробно об основном окне рассказывается в Главе 8 "Объекты приложения".

    Большинство приложений используют несколько окон, и, чтобы они взаимодействовали, их требуется связать. Например, когда вы завершаете приложение, оно должно иметь способ очистки всех окон, за которые отвечает. В общем случае Windows справляется с этим, связывая окна как дочернее и порождающее. Порождающее окно отвечает за свое дочернее окно. ObjectWindows предусматривает для каждого объекта окна поля для отслеживания порождающего и дочерних окон.

    Примечание: Взаимодействие этих окон подробнее описывается в Главе 9.

    Поле Parent содержит указатель на порождающий оконный объект. Это не порождающее окно в смысле предка, а скорее окно-владелец. Взаимосвязь этих окон описывается в шаге 10.

    Третье поле оконного объекта - это поле ChildList, содержащее связанный список дочерних окон.

     procedure TMyApplication.InitMainWindow;
     begin
       Main := New(PStepWindow, Init(nil, 'Step'));
     end;

    Примечание: MAkeWindow поясняется в Главе 9 "Интерфейсные объекты".

    Однако TStepWindow не определяет новых видов поведения, отличных от тех, которые наследуются от TWindow и TWindowObject. Другими словами, программа Step не становится более интересной. Такие виды поведения будут добавлены в следующем разделе.

    Все сообщения в Windows, включая системные сообщения Windows и команды меню, представляются в виде чисел. Каждый метод реакции на сообщение должен иметь уникальное число, так что для сообщений Windows и команд, если они имеют одинаковые номера, вызываются различные методы.     Чтобы облегчить для вас эту задачу, ObjectWindows определяет для каждого вида сообщений константы: wm_First для сообщений окон, cm_First для командных сообщений и nf_First для уведомляющих сообщений. Подробнее об этих константах рассказывается в Главе 7, но сейчас нужно только помнить, что когда вы пишете метод реакции на сообщение, начинающееся с wm_, к нему добавляется wm_First.

    Msg - это запись типа TMessage, содержащая такую информацию, как координаты точки, где была нажата кнопка "мыши". Все методы реакции на сообщение должны воспринимать один параметр-переменную типа TMessage. Аргумент Msg мы рассмотрим в программе Step позднее.

    В данный момент вы можете просто определить методы реакции, которые выводят на экран окно сообщения о нажатии кнопки "мыши". Позднее вы сможете добавить более полезную реакцию. Приведем определение метода реакции на нажатие левой кнопки "мыши":

     procedure TStepWindow.WMLButtonDown(var Msg: TMessage);
     begin
       MessageBox(HWindow, 'Вы нажали левую кнопку мыши',
           'Диспетчеризуемое сообщение', mb_OK);
     end;

Рис. 1.2 Программа Steps реагирует на пользовательское событие.

     function TStepWindow.CanClose: Boolean;
     var Reply: Integer;
     begin
       CanClose := True;
       if HasChanged then
       begin
         Reply := MessageBox(HWindow, 'Хотите сохранить?',
                             'Изображение изменилось',
                              mb_YesNo or mb_IconQuestion);
         if Reply = id_Yes then CanClose := False;
       end;
     end;

     program Steps;

     uses WinTypes, WinProcs, OWindows;

     type
       TMyApplication = object(TApplication)
          procedure InitMainWindow; virtual;
       end;

     type
       PStepWindow = ^TStepWindow;
       TStepWindow = object(TWindow)
          Haschanged: Boolean;
          constructio Init(AParent: PWindowsObject; ATitle:
                            PChar);
          function CanClose: Boolean; virtual;
          procedure CanClose: Boolean; virtual;
          procedure WMLButtonDown(var Msg: TMessage);
             virtual wm_First + wm_LButtonDown;
          procedure WMRButtonDown(var Msg: TMessage);
             virtual sm_First +? wm_RButtonDown;
     end;

     constructor TStepWindow.Init(AParent: PWindowsObject;
                                  ATitle: PChar);

     begin
       inherited Init(AParent, ATitle);
       HasChanged := False;
     end;

     function TStepWindow.CanClose: Boolean;
     var Reply: Integer;
     begin
        if HasChanged then
        begin
          CanClose := True;
          Reply := MessageBox(HWindow, 'Хотите сохранить?',
                              'Изображение изменилось',
                               mb_YesNo or mb_IconQuestion);
         if Reply = id_Yes then CanClose := False;
       end;
     end;

     procedure TStepWindow.WMLButtonDown(var Msg: TMessage);
     begin
       MessageBox(HWindow, 'Вы нажали левую кнопку мыши',
           'Диспетчеризуемое сообщение', mb_OK);
     end;

     procedure TStepWindow.WMRButtonDown(var Msg: TMessage);
     begin
       MessageBox(HWindow, 'Вы нажали правую кнопку мыши',
           'Диспетчеризуемое сообщение', mb_OK);
     end;

     procedure TMyApplication.InitMainWindow;
     begin
       MainWindows := New(PStepWindow, Init(nil, 'Steps'));
     end;

     var MyApp: TMyApplication;
     begin
       MyApp.Init('Steps');
       MyApp.Run;
       MyApp.Done;
     end.