Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

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

 
Domix ©   (2005-08-18 13:25) [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


 
thaddy   (2005-08-19 00:32) [1]

Several grave errors:

1) This leaks a lot of memory!
2) You should write {$APPTYPE CONSOLE} and you get a console for free. Do not use allocconsole etc.
3) It will never leave the run() (winmain loop) until you actually close the applet.

Advise:

Start over again. I will help.


 
Domix ©   (2005-08-21 06:58) [2]

Извените пожалуста может кто нибудь мне перевисти этот текст
Several grave errors:

1) This leaks a lot of memory!
2) You should write {$APPTYPE CONSOLE} and you get a console for free. Do not use allocconsole etc.
3) It will never leave the run() (winmain loop) until you actually close the applet.

Advise:

Start over again. I will help.


 
thaddy   (2005-08-21 10:27) [3]

I should have written more polite, but if you email me, I will explain it in detail and give you a good example with all errors corrected. ok?



Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
2-1143757712
except
2006-03-31 02:28
2006.04.16
Borland Delphi 2005 не компилирует C# проги!


15-1142841744
Layner
2006-03-20 11:02
2006.04.16
Прослушал тут курсы C#...


2-1142760047
align
2006-03-19 12:20
2006.04.16
AdvStringGrid


15-1143527410
Ega23
2006-03-28 10:30
2006.04.16
как по аглицки правильно?


15-1142848842
Nsk3D
2006-03-20 13:00
2006.04.16
*.ntf