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

Вниз

Управлять динамически созданными окнами   Найти похожие ветки 

← →
Lizard   (2004-08-02 13:13) [0]

Уважаемые мастера и мастерицы ;)


...
uses unit2;
...
var
newform:Tform2;
...

function wndop(capt:string):boolean;stdcall;
var
  ms: TMemoryStream;

begin

  ms := TMemoryStream.Create;
  try
    ms.WriteComponent(form2);
    newform := Tmsform.CreateNew(Application);
    ms.Position := 0;
    ms.ReadComponent(newform);
    newform.Show;
    newform.Caption:=capt;
    result:=true;
    finally
    ms.Free
  end;
  end;
я использую эту функцию для создания окна которое "описано" в unit2.pas...все хорошо только как мне выборочно управлять
созданными этой функцией окнами???

заранее благодарю Евгений.

---

← →
Lizard   (2004-08-02 13:14) [1]

простите поправлюсь
...
uses unit2;
...
var
newform:Tform2;
...

function wndop(capt:string):boolean;stdcall;
var
 ms: TMemoryStream;

begin

 ms := TMemoryStream.Create;
 try
   ms.WriteComponent(form2);
   newform := Tform2.CreateNew(Application);
   ms.Position := 0;
   ms.ReadComponent(newform);
   newform.Show;
   newform.Caption:=capt;
   result:=true;
   finally
   ms.Free
 end;
 end;


---

← →
Smithson ©   (2004-08-02 13:15) [2]

Сделай, чтобы функция врозвращала указатель на созданное окно или nil при неудаче. И объуправляйся.

---

← →
Lizard   (2004-08-02 13:26) [3]

Млин...добрый человек подскажи как...плз...

---

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

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

Наверх

Память: 0.47 MB
Время: 0.04 c