Форум — Ответы     (  К темам )
 ?  VAdim: Как из availible form перевести в созданные...или создать прог-но ? (17-02-2003 07:31:14)
Есть доступные формы, хотелось бы при необходимостти создавать какую либо из доступных...как сделать, каков синтаксис...если можно то пример плжалуйста!!
 Георгий (17-02-2003 19:38:35)
Как я понял у тебя есть заранее спроектированные формы например TForm1 и ты хочешь создать несколько экземпляров этой формы?
Если это так, то вот пример:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm1* pForm; //обьявление указателя на экземпляр класса TForm1
pForm=new TForm1(this); //создание экземпляра класса TForm1 и запись его адреса в переменную pForm
pForm->Show(); //показ только что созданной формы на экране
}
Соответственно вместо TForm1 может быть любая форма или визуальный компонент
Можно создать массив (список) созданных таким образом элементов и програмно делать с ними, что хочешь (но не забывать освобождать память, когда элементы станут не нужными).
Это то, что тебе надо?
 Павел (17-02-2003 22:11:40)
Есть доступная форма Form2, создаем ее, показываем, удаляем

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm2), &Form2);
Form2->ShowModal();
delete Form2;
}
 VAdim (18-02-2003 01:14:38)
Спасибо большое !
Очень помогло, особенно вторая подсказка !
Если что, пишите в г.Владивосток мне на мыло.