| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Управлять динамически созданными окнами [D7, WinXP]

Lizard ©   (2004-08-02 13:13:00) 

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


...
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:26:00) [1]

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

---

Smithson   (2004-08-02 13:15:00) [2]

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

---

Lizard   (2004-08-02 13:14:00) [3]

простите поправлюсь
...
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;


---

Наверх