Application.CreateForm

← →
gp © (2003-12-28 15:16) [0]

Решил попробовать перевести один проект на KOL+MCK, это мой первый опыт с KOL, и сразу возникло несколько вопросов. Исходный текст проекта на VCL выгдядел как
program App;
....
procedure ExeProcedure;
begin
Application.CreateForm(TMainForm, MainForm)
...
end;

begin
Application.Initialize;
ExeProcedure;
Application.Run;
end;

И как подобное выразить в рамках KOL+MCK?

← →
SPeller © (2003-12-28 16:21) [1]

NewForm1( Form1, Applet );

Run( Applet );

Ф лучше создай МСК проект и посмотри как она КОЛ-проекты гененрирует и что там пишет.

← →
gp © (2003-12-28 16:40) [2]

я посмотрел, потому и спросил :)
она там пишет

begin
{$IFDEF KOL_MCK} {$I app_0.inc} {$ELSE}
...
end.

вот мне и непонятно, как можно создание форм вынести в процедуру при большом количестве {$IFDEF} и {$I}. причем таким образом чтобы все это не мешало тому коду который генерируется автоматически.

← →
Gandalf © (2003-12-28 17:58) [3]

Автоматику не трогайт, если работаешь с MCK, примеры чистого KOL и создания форм есть на сайте Кладова (testkol.dpr и т.д.).

← →
Boguslaw (2003-12-28 17:59) [4]

причем таким образом чтобы все это не мешало тому коду который генерируется автоматически

Well,all *.inc have descriptions (in English) - just read them and You will know where You can put Your code.

Application.CreateForm Найти похожие ветки