Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

Вниз

Створення глобальної змінної Application Знайти схожі гілки


Rem ©   (2004-11-29 17:51) [0]

program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; {$ R * .res} begin Application.Initialize; Application.CreateForm (TForm1, Form1); Application.Run; end.

Всім знайомий код. А де відбувається створення глобального екземпляра класу Application: TApplication?

Конкретно: як форматувати змінну Application екземпляром свого класу, породженого від TApplication?

Ще конкретніше: хочу перевизначити конструктор TApplication, щоб при старті виконувалися потрібні дії; а також додати деякі методи, інтерфейси і ін.



MBo ©   (2004-11-29 18:01) [1]

Controls
InitControls



Rem ©   (2004-11-29 18:13) [2]

2 MBo
Дякуємо.

Те-є, наскільки я зрозумів, при приєднанні модуля Controls буде автоматично створений Application - екземпляр класу TApplication, бо це реалізовано в секції initialization.

Як же, все ж "підсунути" свій клас?

Бо писати щось на подобу:
begin Application.Free; // можливо, якось по-іншому ... Application: = TMyApplication.Create (nil); Application.Initialize; Application.CreateForm (TForm1, Form1); Application.Run; end.
не є добре ...



Rem ©   (2004-11-29 19:04) [3]

Up



Юрий Зотов ©   (2004-11-29 19:08) [4]

> Rem © (29.11.04 18: 13) [2]

Чому "не є добре"? Нормальне рішення.



VMcL ©   (2004-11-29 19:08) [5]

>>Rem © (29.11.04 18: 13) [2]

>не є добре ...

А чого тут поганого. Нормальний код. Тільки я б написав:
FreeAndNil (Application); Application: = TMyApplication.Create (nil);
Так, про всяк випадок. А то випадки, вони різні бувають ...



jack128 ©   (2004-11-29 19:10) [6]

Rem © (29.11.04 18: 13) [2]
можна і так. Природно все налаштування програми зроблені в секції initialization всіх юнітів пропадуть, ну та й фіг з ними.
Питання в іншому, ти можеш пояснити навіщо тобі це потрібно ??



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.063 c
1-1101224364
кактус
2004-11-23 18:39
2004.12.12
Перекодування в Unicod


3-1100280907
SergP
2004-11-12 20:35
2004.12.12
Як працювати з ADO в режимі ltBatchOptimistic?


3-1100619712
~ Blade ~
2004-11-16 18:41
2004.12.12
Оновлення таблиці в адо


1-1101744749
Сор
2004-11-29 19:12
2004.12.12
TextFile


1-1101717269
дерево
2004-11-29 11:34
2004.12.12
Пошук фрагмента тексту в Memo і виділення його.





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська