Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Динамическое создание форм из консоли [D6, WinXP]

Domix © (2005-08-18 11:47:00)
Добрый день.
у меня возник такая проблема из консоли хочу динамически создавать форму и работать с ней нок сожелению форма работает нормально только припервой загрузки , после закрытия формы и повторного обращения к ней она просто не отображается не выводя ни каких ощибок вот код программы

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

Digitman (2005-08-18 13:01:00) [1]

> Domix © (18.08.05 12:52) [3]

тогда приведи код для VCL

Domix (2005-08-18 12:52:00) [2]
да тут не стока проблема в КОL как в кансоле на VCL тоже самое получается

Digitman (2005-08-18 12:42:00) [3]

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

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

Domix (2005-08-18 12:38:00) [4]
Помогите ПЛИЗ!!

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »