Работа с ComboBox, Заполнение месяцами года компонента ComboBox Опции

[Atreides]

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

Сообщение отредактировано: Atreides - 17.01.2010 14:56

[volvo]

uses dateutils;

// Заполняем комбобокс списком месяцев (в соответствии с региональными установками Windows):
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to MonthsPerYear do
  begin
    ComboBox1.Items.Add(LongMonthNames[i]);
  end;
  ComboBox1.ItemIndex := 0;
end;

// А при выборе нового значения в комбобоксе просто извлекаем его в Эдит:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text := ComboBox1.Text;
end;