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

@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 минут
Я пощелкал этот обекто, наверное не возможно!

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

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