[Maiomi]

Поместите на форму четыре компонента-флажка CheckBox с категориями блюд – Первое, Второе, Напиток, Десерт. Для каждого флажка при помощи компонентов ComboBox создайте список возможных блюд. Если пользователь выделил флажок с категорией блюда, то список блюд данной категории становится доступен. Поместить на форму кнопку «Оформить заказ», при ее нажатии все выбранные пользователем блюда должны выводиться в компоненте Label.

все на форму закинула..
подскажите как внести в комбобокс несколько вариантов блюд..
потом что примерно прописать в чекбокс чтобы оно работало для своего комбобокса

и что примерно нужно прописать для баттона чтоб собрать все воедино..

[poli-smen]

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

Поместите на форму четыре компонента-флажка CheckBox с категориями блюд – Первое, Второе, Напиток, Десерт. Для каждого флажка при помощи компонентов ComboBox создайте список возможных блюд. Если пользователь выделил флажок с категорией блюда, то список блюд данной категории становится доступен. Поместить на форму кнопку «Оформить заказ», при ее нажатии все выбранные пользователем блюда должны выводиться в компоненте Label.

все на форму закинула..
подскажите как внести в комбобокс несколько вариантов блюд..

У комбобокса есть свойство Items - можно вносить или через инспектор объектов или программно

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

потом что примерно прописать в чекбокс чтобы оно работало для своего комбобокса

На событие OnClick каждого чекбокса пропиши примерно так (на примере первых чекбокса и комбобокса):

Код:

1 2 3 4

procedure TForm1.CheckBox1Click(Sender: TObject); begin   ComboBox1.Enabled := CheckBox1.Checked; end;

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

и что примерно нужно прописать для баттона чтоб собрать все воедино..

Примерно так:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var   s: String; begin   if CheckBox1.Checked then s := ComboBox1.Text else s := '';   if CheckBox2.Checked then s := s + ' ' + ComboBox2.Text;   if CheckBox3.Checked then s := s + ' ' + ComboBox3.Text;   if CheckBox4.Checked then s := s + ' ' + ComboBox4.Text;   Label1.Caption := Trim(s); end;

[Maiomi]

спасибо) все собрала) работает)