link6106 link6107 link6108 link6109 link6110 link6111 link6112 link6113 link6114 link6115 link6116 link6117 link6118 link6119 link6120 link6121 link6122 link6123 link6124 link6125 link6126 link6127 link6128 link6129 link6130 link6131 link6132 link6133 link6134 link6135 link6136 link6137 link6138 link6139 link6140 link6141 link6142 link6143 link6144 link6145 link6146 link6147 link6148 link6149 link6150 link6151 link6152 link6153 link6154 link6155 link6156 link6157 link6158 link6159 link6160 link6161 link6162 link6163 link6164 link6165 link6166 link6167 link6168 link6169 link6170 link6171 link6172 link6173 link6174 link6175 link6176 link6177 link6178 link6179 link6180 link6181 link6182 link6183 link6184 link6185 link6186 link6187 link6188 link6189 link6190 link6191 link6192 link6193 link6194 link6195 link6196 link6197 link6198 link6199 link6200 link6201 link6202 link6203 link6204 link6205 link6206 link6207 link6208 link6209 link6210 link6211 link6212 link6213 link6214 link6215 link6216 link6217 link6218 link6219 link6220 link6221 link6222 link6223 link6224 link6225 link6226 link6227 link6228 link6229 link6230 link6231 link6232 link6233 link6234 link6235 link6236 link6237 link6238 link6239 link6240 link6241 link6242 link6243 link6244 link6245 link6246 link6247

Форум — Ответы     (  К темам )
 ?  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)
Спасибо большое !
Очень помогло, особенно вторая подсказка !
Если что, пишите в г.Владивосток мне на мыло.