VPF::изменение текста в комбобоксе

toshkaexe

Дата 5.3.2008, 01:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 57
Регистрация: 16.2.2007

Репутация: нет
Всего: 1

Помогите новичку. На форме есть 2 комбобокса. В первом комбобоксе текст забит. Во втором комбобоксе текст меняется в зависимости от выбора текста в первом комбобоке. (например, если выбраны 1 и 2 строчка в первом комбобоксе, то текст во втором комбобоксе - "мама","папа","сын", "собака"; если выбраны 3 и 4 строчка, то текст во втором комбобоксе "Москва", "Киев", если выбрана 5 строчка в комбобоксе, то во втором комбобоске можно ввести текст ) Подскажите, как можно реализовать? :wall: :wall: :wall: Заранее спасибо.

Craft

Дата 5.3.2008, 03:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 1.3.2008

Репутация: нет
Всего: нет

Код написал на C++Builder. Delphi под рукой не оказалось.

Код


if(ComboBox1->ItemIndex==0 || ComboBox1->ItemIndex==1)
        {
        ComboBox2->ItemIndex=0;
        ComboBox2->Items->Add("Màìà");
        ComboBox2->Items->Add("Ïàïà");
        ComboBox2->Items->Add("Ñûí");
        ComboBox2->Items->Add("Ñîáàêà");
        }
if(ComboBox1->ItemIndex==2 || ComboBox1->ItemIndex==3)
        {
        ComboBox2->ItemIndex=0;
        ComboBox2->Items->Add("Ìîñêâà");
        ComboBox2->Items->Add("Êèåâ");
        }
if(ComboBox1->ItemIndex==4)
        {
       //Пустой ComboBox2. Забивай что хочеш.
        }

Insert

Дата 5.3.2008, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: нет
Всего: 1

Вот аналогичная реализация на Delphi:

Код


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   Combobox2.Clear;
   Combobox2.Style := csOwnerDrawFixed;
   if (Combobox1.ItemIndex = 0) or (Combobox1.ItemIndex = 1) then
   begin
      Combobox2.Items.Add('мама');
      Combobox2.Items.Add('папа');
      Combobox2.Items.Add('сын');
      Combobox2.Items.Add('собака');
   end;
   if (Combobox1.ItemIndex = 2) or (Combobox1.ItemIndex = 3) then
   begin
      Combobox2.Items.Add('Москва');
      Combobox2.Items.Add('Киев');
   end;
   if Combobox1.ItemIndex = 4 then
      Combobox2.Style := csDropDown;
end;

--------------------

пьяный русский кодер практически непобедим

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »