Текущий архив: 2004.03.09;
Скачать: CL | DM;
Вниз
Чем может быть чреват следующий код? Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
