Динамическое создание форм из консоли

← →
Domix © (2005-08-18 11:47) [0]

Добрый день.
у меня возник такая проблема из консоли хочу динамически создавать форму и работать с ней нок сожелению форма работает нормально только припервой загрузки , после закрытия формы и повторного обращения к ней она просто не отображается не выводя ни каких ощибок вот код программы

program Project1;

uses
Windows,
Messages,
KOL;

{$R *.res}
var
frGlav,Cildren,btOk:PControl;
s:string;
procedure frGlavShow;
begin
Cildren:=NewForm(Applet,"cil");
Cildren.Show;
end;
procedure btOkClik(Dimmy:Pointer;Sender:PControl);
begin
frGlavShow;
end;
begin
AllocConsole;
try
while s<>"exit" do
begin
Write("ENTER comand >: ");
Readln(s);
if s="form" then frGlavShow;
if s="app" then
begin
applet:=NewApplet("Hf,jnf");
frGlav:=NewForm(Applet,"Glav");
btOk:=NewButton(frGlav,"Ok");
btOk.OnClick:=TOnEvent(MakeMethod(nil,@btOkClik));
frGlav.Show;
run(Applet);
end;
end;
finally
FreeConsole;
end;
end.

заранее благодарен

ЗЫ Формы создаю с используя библиотеку КОL

← →
Domix © (2005-08-18 12:38) [1]

Помогите ПЛИЗ!!

Или хотябы какие есть идеи

← →
Digitman © (2005-08-18 12:42) [2]

> какие есть идеи

идея проста - коль речь идет о KOL, то и вопрос должен был быть задан именно в конференции по KOL

← →
Domix © (2005-08-18 12:52) [3]

да тут не стока проблема в КОL как в кансоле на VCL тоже самое получается

Динамическое создание форм из консоли Найти похожие ветки