|
Вопрос # 6 015/ вопрос открыт / |
|
Здравствуйте, эксперты!
Можно ли на Form1 поместить массив компонентов (например, кнопок)?
Я делал так. Перетащил на форму нужное количество кнопок Button1..Button100, затем в одной из процедур превратил этот список компонентов в массив, присваивая каждому элементу массива нужную кнопку. Нудное занятие. Столько строк! Как сделать проще?
Спасибо!
 |
Вопрос задал: blin (статус: Посетитель)
Вопрос отправлен: 18 марта 2012, 14:17
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: ANBsoft
Здравствуйте, blin!
либо так
for f:=1 to 100 do
ArrayButton[f]:=FindComponent('TButton'+IntToStr(f));
или как-то так (кусок из проекта)
for n:=1 to TowarRowCount do
for f:=1 to TowarColCount do begin
TowarButArray[n,f]:=TSpeedButton.Create(ScrollBox1);
TowarButArray[n,f].Parent:=ScrollBox1;
TowarButArray[n,f].Tag:=2000000+n*100+f;
TowarButArray[n,f].Left:=(f{+GroupColCount})*ButtonInterval+(f{+GroupColCount}-1)*ButtonWidth;
TowarButArray[n,f].Top:=(n{+GroupRowCount+1})*ButtonInterval+(n{+GroupRowCount}-1)*ButtonHeight;
TowarButArray[n,f].Width:=ButtonWidth;
TowarButArray[n,f].Height:=ButtonHeight;
TowarButArray[n,f].Font.Size:=FontSize;
TowarButArray[n,f].OnClick:=TowarButtonClick;
TowarButArray[n,f].Visible:=False;
end;
 |
Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 18 марта 2012, 14:44
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 18 марта 2012, 17:12; участников в обсуждении: 3.
|
Толяныч (статус: 4-ый класс), 18 марта 2012, 14:33 [#1]:
В свое время я задавал почти такой вопрос 3 907 - динамическое создание контролов. Почитай - авось подтолкнет.
|
|
bugmenot (статус: 3-ий класс), 18 марта 2012, 15:31 [#2]:
Цитата (ANBsoft):
TowarButArray
К войне но массив
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
ANBsoft (статус: Студент), 18 марта 2012, 17:12 [#3]:
Даже не обращал внимания на такой ракурс  .
Производная от Товар_Кнопки_Массив.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
