[Maiomi]

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

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

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

[poli-smen]

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

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

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

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

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

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

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

Код:

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

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

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

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

Код:

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]

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