Турбо Паскаль 6.0




Ваша первая программа в Turbo Vision.


Программа Turbo Vision всегда начинается с создания экземпляра объекта, порожденного от TApplication. В следующем примере Вы создадите порожденный от TApplication тип с именем TMyApp и будете перекрывать методы TApplication. От нового типа Вы создадите экземпляр MyApp.

Примечание: До конца этой главы мы часто будем ссылаться к MyApp. Когда Вы пишите собственную программу в Turbo Vision, Вы, вероятно, назовете ее как-то иначе, в соответствии с назначением этой программы. Мы используем MyApp, поскольку это короче, чем сказать "экземпляр объекта, порожденного от TApplication". (В программе существует только 1 объект TApplication.) Начиная со следующего примера, мы создадим программу. Вместо того, чтобы приводить листинг программы каждый раз, мы будем включать только добавляемые или изменяемые части в тексте. Если Вы создаете сами эту программу, Вы должны иметь хорошее представление, что делается в каждом изменении функциональности. Мы так же рекомендуем Вам попробовать модифицировать примеры.

Примечание: Некоторые стадии из создания примеров представлены на Вашем дистрибутивном диске. Имена файлов указаны вместе с кодом примеров и они соответствуют именам, объявленным в операторе program.

Главный блок TVGUID01.PAS (и каждой программы в Turbo Vision) выглядит подобно:

program TFirst;

uses App;

type TMyApp = object(TApplication) end;

var MyApp: TMyApp;

begin MyApp.Init; MyApp.Run; MyApp.Done; end.

Заметим, что Вы еще не добавили никаких новых функций в TMyApp. Обычно Вы никогда не объявляете полностью новый объектный тип без полей или методов. Вы просто объявляете переменную MyApp, как экземпляр типа TApplication. Поскольку Вы будете расширять его позже, когда будете писать программу в Turbo Vision, Вы установите TMyApp для гибкого расширения. По умолчанию TApplication создает экран, как показано на рисунке 2.1.

Рис. 2.1. Экран TApplication по умолчанию.

+--------------------------------------+ | | +--------------------------------------| |**************************************| |**************************************| |**************************************| |**************************************| |**************************************| |**************************************| +--------------------------------------| | Alt-X Exit | +--------------------------------------+

Эта программа делает только одно: она реагирует на Alt-X и завершает программу. Чтобы она делала что-то еще, Вам требуется добавить дополнительные команды в строку статуса и/или в полосу меню. В следующем разделе Вы сделаете это.




Содержание  Назад  Вперед