| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Кот Бегемот ©   (2003-01-27 17:50:00) 

По всем канонам ООП перекрываю 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-28 09:27:00) [1]

2icWasya © (27.01.03 18:36)

Большое спасибо - все работает :)))

---

icWasya   (2003-01-27 18:36:00) [2]

в 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!");



---

vuk   (2003-01-27 18:24:00) [3]

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

---

ZmeiGorin   (2003-01-27 18:13:00) [4]

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

точно nil?

---

Кот Бегемот   (2003-01-27 18:03:00) [5]

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

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

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

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

---

Игорь Шевченко   (2003-01-27 17:54:00) [6]

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

---

Наверх