работа с ComboBox

[Софья1992]

такая задача: в ComboBox должен содержаться список:красный,синий,желтый,серый,з еленый.При выборе любого значения цвет формы должен поменяться соответственно.

помогите написать код для замены цвета формы

начала так:

Form1.Color:=ComboBox1.Items.

может и неправильно(

[Alex11223]

Дык надо же не Form1.Color := 'Зеленый', а clGreen например.

Можно с помощью case ... of в зависимости от номера (т.к. в дельфи case со строками не работает) выбранного варианта ставить соответствующий цвет.
т.е. что-то вроде

case Combobox1.ItemIndex of
  1: form1.color := clgreen;
  2: form1.color := clblue;
  <другие варианты>
end;

[Софья1992]

спасибо большое,все получилось)
занимаюсь делфи дней 5,так что знания совсем маленькие

можете еще помочь с этим ComboBox

имеется список ,состоящий из фамилия и дат рождения.Фамилии должны быть доступны для выбора из Combobox,но даты отражаться не должны.При выборе любой фамилии соответствующая дата рождения должна отразиться в TEdit.

получается только,что в Combobox видны и фамилии и даты и при выборе в TEdit отражается тоже самое.Вот такая команда:

Edit1.Text:=ComboBox1.Items.
Strings[ComboBox1.ItemIndex];

надо что то изменить

[Прик]

Есть предостаточно вариантов.

- держать даты рождений в массиве, в той последовательности в какой фамилии находятся в комбобоксе. При выборе фамилии обращаться к элементу массива по ItemIndex комбобокса и выводить в TEdit.

- В комбобоксе есть дополнительная возможность помимо строк хранить целые числа. Если ДР представить в виде целого числа (функция Int в этом поможет), то можно хранить даты рождений и в самом комбобоксе. Но записать их можно только во время выполнения программы.

- Взять два комбобокса. В одном фамилии, в другом ДР. Тот который хранит ДР сделать невидимым. При выборе фамилии устанавливать в другом такое же значение ItemIndex.

[Софья1992]

массивы использовать нельзя,так в задании написано.
и нужно использовать 1 компобокс.

подходит ваш второй вариант,можно по подробнее
что то не вижу функции Int...((
и как сделать это все в TEdit?

[Прик]

procedure TForm1.FormCreate(Sender: TObject);
begin
  CB.Items.Objects[0] := TObject(Trunc(StrToDate('01.01.2000')));
  CB.Items.Objects[1] := TObject(Trunc(StrToDate('01.01.2001')));
  CB.Items.Objects[2] := TObject(Trunc(StrToDate('01.01.2010')));
end;

procedure TForm1.CBChange(Sender: TObject);
begin
  Edit1.Text := DateToStr(Integer(CB.Items.Objects[CB.ItemIndex]));
end;

При создании формы пример как записывать даты в комбобокс.
В событии OnChange комбобокса показано как выбирать из компонента значения дат.

[Софья1992]

Спасибо,все получилось)
объясните что что это именно и зачем надо "D : Double;"?

[Прик]

Сообщение от Софья1992

объясните что что это именно и зачем надо "D : Double;"?

Уже не надо. Окончательный вариант показан в том же посте #6.

[Софья1992]

ой,вообще замечательно)

помогите пожалуйста с Satic Text.
дан этот компонент на форме и нужен код,позволяющий перетаскивать его мышкой

[Прик]

Нас уволят из форума без выходного пособие за многотемье.
Или пишите мне на мыло или задавайте вопросы в разных темах.