TApplication App
+----------+ | TObject | +----+-----+ +----+-----+ | TView | +----+-----+ +----+-----+ | TGroup | +-+--+---+-+ +---------+ | +---------+ +----+----+ +----+-----+ +----+-----+ | TWindow | | TDeskTop | | TProgram | +----+----+ +----------+ +----+-----+ +----+----+ +=====+========+ | TDialog | | TApplication | +---------+ +==============+
TApplication просто наследуется от TProgram и отличается от TProgram только констрактором и дестрактором. TApplication.Init инициализирует все подсистемы Turbo Vision (управление памятью, видео, событиями, системными ошибками и списками историй) и затем вызывает TProgram.Init. Аналогично TApplication.Done вначале вызывает TProgram.Done, а затем уничтожает все подсистемы Turbo Vision. Обычно Вы будете наследовать свои программы от TApplication. Если Вам потребуется другая последовательность инициализации подсистем и их закрытия, Вы можете наследовать Вашу программу от TProgram и вручную инициализировать и закрывать подсистемы Turbo Vision.
Методы
Init constructor Init; Фактическая реализация TApplication.Init показана ниже:
constructor TApplication.Init; begin InitMemory; InitVideo; InitEvents; InitSysError; InitHistory; TProgram.Init; end;
См. так же: TProgram.Init
Done destructor Done; virtual; Реализация TApplication.Done показана ниже:
destructor TApplication.Done; begin TProgram.Done; DoneHistory; DoneSysError; DoneEvents; DoneVideo; DoneMemory; end;
