Форум: "Основная";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Вниз

Чем может быть чреват следующий код?   Найти похожие ветки 

← →
uUnknown   (2004-02-26 19:21) [0]

App := Application;
Application := TApplication(TApp.Create(nil));
App.Free;
Application.CreateForm(TForm1, Form1);
Application.Run;

---

← →
Юрий Зотов   (2004-02-26 19:30) [1]

Нормальный ход. Так можно активизировать свой класс - потомок Application. Можно даже и проще:

begin
Application.Free;
Application := TMyApplication.Create(nil);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run
end.

---

← →
Тимохов   (2004-02-26 19:31) [2]

Что такое TApp?
И зачем вам это нужно?

---

← →
uUnknown   (2004-02-26 19:35) [3]

> Тимохов © (26.02.04 19:31) [2]

См. пост выше.


> Юрий Зотов © (26.02.04 19:30) [1]

Да, варианты есть, спасибо.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c