Скачать: CL | DM;

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

← →
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 тоже самое получается

---

← →
Digitman ©   (2005-08-18 13:01) [4]

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


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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.05 c