Как создать СВОЮ переменую Application ???

← →
Кот Бегемот © (2003-01-27 17:50) [0]

По всем канонам ООП перекрываю TApplication и добавляю свои свойства, методы - присущие только моей програмке:
TMyApplication = class(TApplication) FAnything: integer; procedure DoAnything(s: string); end;{TMyApplication}
и по соглашению Borland и так как во многих модулях используется Application пытаюсь объявить переменную своего типа
var Application: TMyApplication; begin Application := TMyApplication.Create(nil);

а вот дальше происходит самое интересное - програмка когда запускается но не работает, когда выдает AV, а иногда запускается работает но не закрывается :(

Возможно ли решить проблему и проблема ли это вообще ???

← →
Игорь Шевченко © (2003-01-27 17:54) [1]

А посмотреть исходный текст InitControls, чтобы понять причину, что-то не позволяет ?

← →
Кот Бегемот © (2003-01-27 18:03) [2]

2Игорь Шевченко © (27.01.03 17:54)
Позволяет конечно :) - но это не решает проблемы
Конечно в unit Controls используется Application из Forms :)

Ну а мне изменять имена с Application на MyApplicationв в двух десятках модулей - половины исходников которых нету и которые вообще не мои :((((((((

Наверно дух TurboVision еще живой во мне - надо его убивать :(

А для Вас Игорь персонально буду указывать:
"исходный текст InitControls смотрел"

← →
ZmeiGorin © (2003-01-27 18:13) [3]

А если посмотреть код какого-нибудь HTTPApp
и еще меня смущает TMyApplication.Create(nil);

точно nil?

← →
vuk © (2003-01-27 18:24) [4]

>и еще меня смущает TMyApplication.Create(nil);
А почему Это смущает-то?

в D5 строчка
Application := TApplication.Create(nil);
встречается в трёх местах
unit Controls;
unit ctlpanel;
unit svcmgr;

во всех случаях инициализируется одна и таже переменная
var Application : TApplication; из модуля Forms, но в первом случае получается обычное приложение, во втором Web-страница, в третьем Сервис.

Вам нужно сделать так же -
в файле проекта
Forms.Application.Free; Forms.Application := TMyApplication.Create(nil);
Где уж очень нужно делать проверки
if Forms.Application is TMyApplication then TMyApplication(Forms.Application).DoAnything("Hello World!");

Как создать СВОЮ переменую Application ??? Найти похожие ветки