Архив форумов ЦИТФорума

[Владимир]

Как зделать массив элементов управления как на VB : Label(1).Caption=.....

Как программно очистить Image от рисунка ???

[user]

>Как сделать массив элементов управления как >на VB: Label(1).Caption=.....
>
>Как программно очистить Image от рисунка ???

1. Если вопрос про Basic, то можно создать элементы управления на форме (создавать их программно ещё не умею).

1.1. На форме создаётся первый из будущего набора, затем копируется и вставляется. Бейсик сам спросит: "Не желаете ли создать массив элементов управления?" Тут нужно ответить: "Желаю", и вставлять их дальше, до нужного количества.

1.2. На форме создаются обычным образом все нужные элементы, а затем у каждого по очереди исправляется значение свойства Index. Это задаёт их порядковые номера в массиве.

2. Программно элемент Image очищается от изображения функцией LoadPicture без аргументов:
Image1.picture = LoadPicture()

[Adil]

Среда разработки?
1.Для билдера массив TLabel-ов
//---------------------------------------------------------.. TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
arr=NULL;//объявлен в TForm1 как TLabel**arr;
}
//---------------------------------------------------.. __fastcall TForm1::FormCreate(TObject *Sender)
{
arr=new TLabel*[10];
for(int i=0;iParent=Panel1;//размещаются на Panel1
arr[i]->Top=10+i*20;//координаты относительно arr[i]->Parent
arr[i]->Left=10;
arr[i]->Caption=System::AnsiString("Label №")+System::AnsiString(i);
//здесь моно задать какие угодно свойства arr[i]
}

}
//---------------------------------------------------------------.. __fastcall TForm1::FormDestroy(TObject *Sender)
{
if(arr)
delete[] arr;
}
//-----------------------------------------------------------.. в билдере для TImage нет);

Удачи.

[Adil]

Что за глюки на этом форуме, постоянно что-то пропадает! Модератор! Надо бы хоть предпросмотр сделать, что ли, если не трудно - это было бы здорово.

Досылаю:
2. Image1->Picture->Assign(NULL);
(LoadPicture() в билдере нет для TImage)

Удачи.