Последовательное заполнение Caption множества TPanel

@Dima_control · Регистрация: 28.06.2019

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

Есть форма для ввода/вывода информации в индикаторы.

Последовательное заполнение Caption множества TPanel

Задача следующая - по нажатию клавиши ВКЛ разрешается ввод в индикаторы. Индикаторы представляют собой множество компонентов TPanel в которых заполняется значение Caption. Как можно реализовать функцию, что бы ндикаторы заполнялись последовательно? Т.е. я нажимаю ВКЛ, потом нажимаю любую цифру и она записывается в первый индикатор, потом следующая выданная мною цифра записывается в следующий и так далее. Как это можно реализовать?
Так же кнопка ГАШ должна производить гашение (удаление) последнего набранного значения

@Dima_control · 29.01.2020, 04:53 **[ТС]**

Я вот тут попробовал, сделал следующим образом, но мне кажется, что это идиотский способ.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
if(brvi_on){
 
if(i1->Caption=="")
        i1->Caption="1";
else if(i2->Caption=="")
        i2->Caption="1";
else if(i3->Caption=="")
        i3->Caption="1";
else if(i4->Caption=="")
        i4->Caption="1";
else if(i5->Caption=="")
        i5->Caption="1";
else if(i6->Caption=="")
        i6->Caption="1";
else if(i7->Caption=="")
        i7->Caption="1";
else if(i8->Caption=="")
        i8->Caption="1";
else if(i9->Caption=="")
        i9->Caption="1";
else if(i10->Caption=="")
        i10->Caption="1";
else if(i11->Caption=="")
        i11->Caption="1";
else if(i12->Caption=="")
        i12->Caption="1";
else if(i13->Caption=="")
        i13->Caption="1";
else i14->Caption="1";
}

И так на каждую кнопку.

Добавлено через 10 минут
Ну и гашение символа описал так

C++
1
2
if(i15->Caption.Length()==1)
        i15->Caption="";

причем с конца счет идет чтоб гасить последний индикатор.

Добавлено через 7 минут
в конце кода записи числа в индикаторы добавил, что бы не перезаписывал если это число - последний индикатор

C++
1
2
3
else if(i14->Caption=="")
        i14->Caption="1";
else {} // Что бы последний индикатор не перезаписывал

@nick42 · 29.01.2020, 10:40

Напишите функцию (в параметрах символ-цифра или пробел для гашения) и вызывайте её при вводе очередной цифры.
Например:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::setNext(char ch)
{
    TPanel *mjA, *mjB;
    int j;
    for(j=13; j>0; j--)  {
      mjA = dynamic_cast <TPanel*>(FindComponent("i"+IntToStr(j)));
      if(mjA && mjA->Caption.Length()) break;
    }
    mjB = dynamic_cast <TPanel*>(FindComponent("i"+IntToStr(j+1)));
    if(ch==' ' && mjA) mjA->Caption="";
    if(ch!=' ' && mjB) mjB->Caption=ch;
}

@gunslinger · 29.01.2020, 10:50

Тебе нужно запоминать, какой из элементов Panel в данный момент "активен" (используется). Можно использовать свойство Tag (задавать ему значение, например, 1; значения остальных Tag, и для Panel-ей в том числе, по умолчанию 0).
Твои кнопки с числами должны вызывать, к примеру, какую-то функцию (передавая ей свое числовое значение), которая меняет заголовок (Caption) и значение Tag Panel-и (обнуляя при этом предыдущее ненулевое значение).
С гашением аналогично, только двигаемся в обратную сторону.
"Доступ" к Panel-ям:
Рандомное распределение элементов на форме
Другие примеры (принцип такой же):
Упростить запись однотипных операций над компонентами
Как скопировать данные из одной формы, и вставить их на другую форму при нажатии на кнопку?
Ну и здесь прочитай, вдруг пригодится информация: Ханойские башни

P.S.: либо скинь свой проект, может тогда кто-нибудь полностью готовый код "подкинет".

@nick42 · 29.01.2020, 10:52

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

C++
1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    setNext(((TButton*)Sender)->Caption[1]);
}

Просто назначьте этот обработчик от кнопки "1" всем остальным цифровым кнопкам.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Dima_control 2 / 2 / 0 Регистрация: 28.06.2019 Сообщений: 129 Записей в блоге: 3

	Builder 6 Последовательное заполнение Caption множества TPanel 29.01.2020, 01:25. Показов 1312. Ответов 4 Метки нет (Все метки) Есть форма для ввода/вывода информации в индикаторы. Задача следующая - по нажатию клавиши ВКЛ разрешается ввод в индикаторы. Индикаторы представляют собой множество компонентов TPanel в которых заполняется значение Caption. Как можно реализовать функцию, что бы ндикаторы заполнялись последовательно? Т.е. я нажимаю ВКЛ, потом нажимаю любую цифру и она записывается в первый индикатор, потом следующая выданная мною цифра записывается в следующий и так далее. Как это можно реализовать? Так же кнопка ГАШ должна производить гашение (удаление) последнего набранного значения 0

@gunslinger place status here 3186 / 2220 / 640 Регистрация: 20.07.2013 Сообщений: 6,014
	29.01.2020, 10:50
	Тебе нужно запоминать, какой из элементов Panel в данный момент "активен" (используется). Можно использовать свойство Tag (задавать ему значение, например, 1; значения остальных Tag, и для Panel-ей в том числе, по умолчанию 0). Твои кнопки с числами должны вызывать, к примеру, какую-то функцию (передавая ей свое числовое значение), которая меняет заголовок (Caption) и значение Tag Panel-и (обнуляя при этом предыдущее ненулевое значение). С гашением аналогично, только двигаемся в обратную сторону. "Доступ" к Panel-ям: Рандомное распределение элементов на форме Другие примеры (принцип такой же): Упростить запись однотипных операций над компонентами Как скопировать данные из одной формы, и вставить их на другую форму при нажатии на кнопку? Ну и здесь прочитай, вдруг пригодится информация: Ханойские башни P.S.: либо скинь свой проект, может тогда кто-нибудь полностью готовый код "подкинет". 0