Объекты типа TApplication

← →
Project 1 (2003-03-04 23:38) [0]

Как мне создать свой объект типа TApplication?
Например вместо Application использовать app:TApplication

Begin
app.Initialize;
app.CreateForm(...

... и так далее?
Короче, как этот app правильно инициализировать?

← →
Юрий Зотов (2003-03-05 00:46) [1]

unit MyApp;
...
type
TMyApplication = class(TApplication)
...
end;
...
end.

==========

program Project1;

uses
..., MyApp;

begin
Application.Free;
Application := TMyApplication.Create(...);
... // остальное как обычно
end.

Объекты типа TApplication Найти похожие ветки