Циклическое создание кнопок на форме

@gorin · Регистрация: 18.08.2009

Студворк — интернет-сервис помощи студентам

Добрых суток времени, форумчяни!!!!! У меня такой интересный вопрос. Как можно пр нажатии на кнопку реалезировать цыкл созданий кнопок на форму?
Вот код создание кнопки на форме при нажатии на неё:

C++
1
2
3
4
5
6
7
8
TButton *Button;
 Button=new TButton(this);
 Button->Height=30;
 Button->Width=190;
 Button->Top=300;
 Button->Left=10;
 Button->Caption="кнопка";
 Button->Parent=this;

AntonChik · 03.06.2011, 13:26

Не по теме:

весело) интересно что ответит LK

cpp_developer · 03.06.2011, 15:19

LK say: вставь первое во второе, и получишь цикл каждые 5 секунд с зависание на три секунды после каждой итерации...

Не по теме:

:D довольно сексуально получилось.

@gorin · 04.06.2011, 20:48 **[ТС]**

LK, Привет, раскажыте подробней, вот моя задача!
Я например цыклычиски открываю каждую ссилку те что есть в ListBox, При этом мне нуужно чтобы я смог при нажатой кнопке "Пингировать ссылки", нажымать и другие кнопки, напоимер закончить цикл break. Вы чтото говорили по поводу таймера, я пробивал ваш код, ворма по прежнему не активна, только окно через каждых 5 сек выбиваетса!!!

cpp_developer · 04.06.2011, 20:55

Сообщение от LK

при таймере она активна, просто окно сообщения модально, если не выводить сообщение, а тихо делать свое дело, то ничто не мешает нажимать кнопки и т.д.

внимательно читаете свою же тему

@gorin · 04.06.2011, 22:48 **[ТС]**

LK, Я вот вставил цикл в таймер и все равно форма виснит пока не закончитсца цикл! Может чтото не так делаю.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    for(int i=0;i<bsSkinListBox2->Items->Count;i++)
    {
        int a,b;
        a=rand() % s;
        b=rand() % s;
 
        if(bsSkinCheckListBox1->Checked[i] == true)
        {
            dataGoogle = IdHTTP1->Get(httpGoogle+bsSkinListBox2->Items->operator [](i));
            bsSkinMemo2->Lines->Add("  "+IntToStr(bsSkinMemo2->Lines->Count+1)+". Результат: ("+dataGoogle+") "+a+" мсек.");
            Timer1->Interval = a;
        }
        if(bsSkinCheckListBox4->Checked[i] == true)
        {
            dataYandex = IdHTTP1->Get(httpYandex+bsSkinListBox2->Items->operator [](i));
            bsSkinMemo2->Lines->Add("  "+IntToStr(bsSkinMemo2->Lines->Count+1)+". Результат: ("+dataYandex+") "+b+" мсек.");
            Timer1->Interval = b;
        }
        Timer1->Enabled = false;
    }
}

cpp_developer · 04.06.2011, 23:33

gorin, внимательно читаем свою же тему - пост #57

Сообщение от LK

...поставить внутри цикла перед закрывающей скобкой

C++
1
Application->ProcessMessages();

...

Не по теме:

невнимательное прочтение создателем темы своей же темы, как минимум, удивляет, и вызывает желание пройти мимо

@gorin · 05.06.2011, 11:58 **[ТС]**

LK, Спс работает!!!!

@gorin · 08.06.2011, 00:17 **[ТС]**

LK, А как сожно цыклически проверить или хоть один

C++
1
CheckListBox1->Checked = false

.
Иными словами, сделать проверку "Ни один не выбран"!

@QVO · 08.06.2011, 00:19

Попробуй так:

C++
1
2
3
4
if( ( CheckListBox1->Checked = false ) && ( CheckListBox_n->Checked = false ) )
{
  //  ??
}

@gorin · 08.06.2011, 00:22 **[ТС]**

Nouko, Это список (типа ListBox) только с фложками, я не знаю зарание сколько их будет!

@QVO · 08.06.2011, 00:36

gorin, голова уже не варит... Попробуй так:

C++
1
2
3
4
5
6
7
8
9
10
for( int i = 0; i < this->ComponentCount; i++ )
{
  if ( this->Components[i]->ClassNameIs("TCheckBox") )
  {
    if( ( (TCheckBox *) this->Components[i])->Checked = false )
    {
      // что-то делаем
    }
  }
}

AntonChik · 08.06.2011, 05:22

Сообщение от gorin

Noukoя не знаю зарание сколько их будет!

их будет

C++
1
CheckListBox1->Items->Count;

@gorin · 08.06.2011, 11:11 **[ТС]**

Задача вот такая, вот например я делаю проверку цыклически

C++
1
2
3
4
5
6
7
8
9
10
11
12
for(i=0;i<bsSkinListBox2->Items->Count;i++)
{
    if(bsSkinCheckListBox1->Checked[i] == false)
    {
                     Form8->ShowModal();//Ви не вибрали ни одну ссылку
    }
    if(bsSkinCheckListBox4->Checked[i] == false)
    {
                     Form8->ShowModal();//Ви не вибрали ни одну ссылку
    }
    Application->ProcessMessages();
}

Можно както чтоби форма не появлялась то количество раз, сколько (ListBox2->Items->Count).

mimicria · 08.06.2011, 11:15

Так?

C++
1
2
3
4
5
6
7
int chk=0;
for(i=0;i<bsSkinListBox2->Items->Count;i++)
{
        if(bsSkinCheckListBox1->Checked[i]) chk++;
        Application->ProcessMessages();
}
if (!chk) Form8->ShowModal();//Ви не вибрали ни одну ссылку

@gorin · 08.06.2011, 13:54 **[ТС]**

mimicria, спс.

Добавлено через 7 минут
Я столкнулся с еще одной задачкой. может ктото стыкался?
Вот такая задача:
Нужно цыклически проверить нажатые Флажки ну при этом чтобы в ListBox1 (к которому подключьон ImageList ) свойство ImageIndex виставился индекс 1 а не нажатые 0, иными словами:

C++
1
ListBox1->ItemIndex;

был равен нажатого флажка

C++
1
CheckListBox->ItemIndex;

и если Флажок стоит то в свойстве

C++
1
ListBox1->ImageIndex=1;

Добавлено через 1 час 2 минуты
Иными словами, как обратитса к определенной строке ListBox и выставть ей ImageIndex?

Добавлено через 26 минут
Я пощелкал этот обекто, наверное не возможно!

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

AntonChik
	03.06.2011, 13:26
	Не по теме: весело) интересно что ответит LK 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	03.06.2011, 15:19
	LK say: вставь первое во второе, и получишь цикл каждые 5 секунд с зависание на три секунды после каждой итерации... Не по теме: :D довольно сексуально получилось. 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	04.06.2011, 20:48 [ТС]
	LK, Привет, раскажыте подробней, вот моя задача! Я например цыклычиски открываю каждую ссилку те что есть в ListBox, При этом мне нуужно чтобы я смог при нажатой кнопке "Пингировать ссылки", нажымать и другие кнопки, напоимер закончить цикл break. Вы чтото говорили по поводу таймера, я пробивал ваш код, ворма по прежнему не активна, только окно через каждых 5 сек выбиваетса!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	05.06.2011, 11:58 [ТС]
	LK, Спс работает!!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	08.06.2011, 00:22 [ТС]
	Nouko, Это список (типа ListBox) только с фложками, я не знаю зарание сколько их будет! 0