Очистить ComboBox1->Text

@gvenog · Регистрация: 17.04.2010

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

Как очистить выбранный ComboBox1->Text и поменять его на новое значение?
без ComboBox1->ItemIndex=-1;

т.е. как

C++
1
2
3
4
5
6
AnsiString str;
Integer c;
if (ComboBox1->Text==str)
{
ComboBox1->Text=c;
}

только этот код не работает

@Sasha · 21.05.2013, 14:30

вместо Integer просто пишут

C++
1
int

@_Dimon_ · 21.05.2013, 14:31

C++
1
2
3
4
5
6
AnsiString str;
int c;
if (ComboBox1->Text==str)
{
 ComboBox1->Text=IntToStr(c);
}

@LASpace · 21.05.2013, 14:39

конечно не работает) ты в текст пишешь int
надо хотя бы так

C++
1
ComboBox1->Text = IntToStr(c);

но это не изменит значения выбранного элемента... Что бы изменить элемент ComboBox1

C++
1
ComboBox1->Items->Strings[ComboBox1->ItemIndex] = IntToStr(c);

@gvenog · 21.05.2013, 14:47 **[ТС]**

_Dimon_, не работает

вот полностью код обработчика:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::ComboBox3Select(TObject *Sender)
{
Table3->Open();
    Table3->First();
    int n=Table3->RecordCount;
    for (int q=0;q<n;q++)
    {
    c = Table3->FieldByName("GR_CODE")->AsInteger;
    str = IntToStr(c) + "      " + Table3->FieldByName("GR_NAME")->AsString;
    if (ComboBox3->Text==str)
    {
     ComboBox3->Text=IntToStr(c);
    Edit3->Text = Table3->FieldByName("GR_NAME")->AsString;
    }
    c=0;
    str=0;
    if (q!=(Table3->RecordCount))
    Table3->Next();
    }
}

мне надо, чтобы в списке Combobox было GR_CODE и GR_NAME, а при выборе нужного значения, ComboBox3->Text менялось только на GR_COD

Добавлено через 4 минуты
LASpace,

C++
1
ComboBox1->Items->Strings[ComboBox1->ItemIndex] = IntToStr(c);

этот код вообще заменяет строку в списке Combobox, мне надо, чтобы в списке Combobox показывалась строка str, а при выборе этого элемента только код c

@LASpace · 21.05.2013, 14:50

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

этот код вообще заменяет строку в списке Combobox, мне надо, чтобы в списке Combobox показывалась строка

я и писал что он изменит строку)
а чем не подходит

C++
1
ComboBox1->Text = IntToStr(c);

@gvenog · 21.05.2013, 14:52 **[ТС]**

LASpace, он почему-то не работает

@_Dimon_ · 21.05.2013, 14:57

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

LASpace, он почему-то не работает

Вот смотрю я на этот код... может я не выспался, но что он должен делать ?

@LASpace · 21.05.2013, 15:01

мучал твою идею) попробуй так (может устроит)

C++
1
2
3
4
    
int i = ComboBox1->ItemIndex;
ComboBox1->Items->Strings[ComboBox1->ItemIndex] = IntToStr(c);
ComboBox1->ItemIndex = i;

@gvenog · 21.05.2013, 15:01 **[ТС]**

_Dimon_, в общем мне нужно как-то так:

@_Dimon_ · 21.05.2013, 15:04

Тебе надо забить ComboBox1 значениями из БД?

@LASpace · 21.05.2013, 15:05

фишка в том что текст ты меняешь, а комбобох автоматом меняет его на то что в itemindex записано
выход только и изменении выбранной строки

@gvenog · 21.05.2013, 15:06 **[ТС]**

LASpace, теперь значение оставляет, но и список комбобокса тоже изменяет

Добавлено через 41 секунду
_Dimon_, я его уже забила этими значениями :

C++
1
2
3
4
5
6
7
8
9
10
Table3->Open();
   ComboBox3->Clear();
   for (Table3->First(); !Table3->Eof; Table3->Next())
   {
   c = Table3->FieldByName("GR_CODE")->AsInteger;
   str = IntToStr(c) + "      " + Table3->FieldByName("GR_NAME")->AsString;
      ComboBox3->Items->Add(str);
      c=0;
      str=0;
   }

@gvenog · 24.05.2013, 19:06 **[ТС]**

в общем мне сказали, что это решается с помощью изменения длины комбобокса

@gvenog · 01.06.2013, 16:40 **[ТС]**

Если кому-то интересно, вот код из книги Ермолаева:

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
//функция для получения длины самой длинной строки в комбобоксе
int TForm1::GetTextLength(TWinControl *AControl)
{
TComboBox *pComboBox = dynamic_cast <TComboBox *> (AControl);
int Length = 0;
if(pComboBox)
{
TCanvas *pCanvas = new TCanvas();
pCanvas->Handle = GetDC(pComboBox->Handle);
for (int i = 0; i < pComboBox->Items->Count; i++)
{
AnsiString Text = pComboBox->Items->Strings[i];
int TempLength = pCanvas->TextWidth(Text);
if(TempLength > Length)
Length = TempLength;
}
delete pCanvas;
return Length;
}
else
return 0;
}
 
void __fastcall TForm1::ComboBox1DropDown(TObject *Sender)
{
SendMessage(ComboBox1->Handle, CB_SETDROPPEDWIDTH, GetTextLength(ComboBox1) + 10, 0);
}
//--

В самом комбобоксе указать любой style, кроме csSimple

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	21.05.2013, 14:52 [ТС]
	LASpace, он почему-то не работает 0

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	21.05.2013, 15:01 [ТС]
	_Dimon_, в общем мне нужно как-то так: Миниатюры 0

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	21.05.2013, 15:04
	Тебе надо забить ComboBox1 значениями из БД? 0

@LASpace 34 / 34 / 7 Регистрация: 27.01.2013 Сообщений: 142
	21.05.2013, 15:05
	фишка в том что текст ты меняешь, а комбобох автоматом меняет его на то что в itemindex записано выход только и изменении выбранной строки 0

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	24.05.2013, 19:06 [ТС]
	в общем мне сказали, что это решается с помощью изменения длины комбобокса 0