VPF::Пару вопросов по ComboBox - Форум программистов

HoZeY

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

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

Загрузка ...

Новичок

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

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

Здравствуйте!
интересуют такие вопросы по ComboBox:

1) На форме два ComboBox и кнопка. Например в ComboBox1 есть "Mobile", "Video", "Music". ComboBox2 пустой.
Как при выборе в ComboBox1 "Mobile" вывести в ComboBox2 "Pic", "Mp3", "Java". А при выборе ComboBox1 например "Video", в ComboBox2 показать "Comedy", "History", "Fantasy" ?

2) На форме Memo, ComboBox и кнопка. Выбираю в ComboBox1 "Mobile" и нажимаю на кнопку. Нужно что б после нажатия кнопки в Memo вставилось не "Mobile", а "15". А если выбираю "Music", то - "18" например.

Думаю понятно задал вопрос. Надеюсь на вашу помощь.
Спасибо.

Данкинг

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

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

И то, и то логичней реализовывать через локальную БД, в которой будешь хранить всё, что относится к video, mobile и т.п. Равно как и соответствие "Music - 18".

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

There's nothing left but silent epitaphs.

pseud

Дата 21.11.2008, 10:02 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Данкинг, а если все закончиться только этими значениями, то база данных скорее не актуальна.

простейший способ "влоб":
1) Combobox1.OnChange

Код


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with Combobox2.Items do
  begin
    Clear;
    case Combobox1.ItemIndex of
      0:
        begin
          Add('Pic');
          Add('Mp3');
          Add('Java');
        end;
      1:
        begin
          Add('Comedy');
          Add('History');
          Add('Fantasy');
        end;
      2:
        begin
          //...
        end;
      //...
    end;
  end;
end;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

HoZeY

Дата 21.11.2008, 19:11 (ссылка)

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

Загрузка ...

Новичок

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

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

pseud, спасибо огромное. Работает smile

Остается разобраться только с этим:

Цитата

2) На форме Memo, ComboBox и кнопка. Выбираю в ComboBox1 "Mobile" и нажимаю на кнопку. Нужно что б после нажатия кнопки в Memo вставилось не "Mobile", а "15". А если выбираю "Music", то - "18" например.

AndreyZ53

Дата 21.11.2008, 20:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не знаю что точно нужно, но ты пробывал так?

if Combobox2.Text='Mobile' then
Memo.Lines.Add('15');
if Combobox2.Text='Music' then
Memo.Lines.Add('18');

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

https://itbases.ru/

HoZeY

Дата 21.11.2008, 23:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(AndreyZ53 @ 21.11.2008, 20:56)

Не знаю что точно нужно, но ты пробывал так?

if Combobox2.Text='Mobile' then
Memo.Lines.Add('15');
if Combobox2.Text='Music' then
Memo.Lines.Add('18');

Спасибо Вам всем! получилось smile

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