IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Работа с ComboBox, Заполнение месяцами года компонента ComboBox
Atreides
сообщение 17.01.2010 10:40
Сообщение #1


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


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

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


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 17.01.2010 11:02
Сообщение #2


Гость






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;
 К началу страницы 
+ Ответить 
Atreides
сообщение 17.01.2010 13:20
Сообщение #3


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Спасибо! Только это вот будет текст, текст имен месяцев нужен только для пользователя, а для работы мне хотелось бы получать идентификаторы от 1 до 12 в соответствии ч порядком следования месяцев.


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 17.01.2010 13:32
Сообщение #4


Гость






Значит, работай с (ComboBox1.ItemIndex + 1) после выбора нужного пользователю месяца. Это вернет его порядковый номер.
 К началу страницы 
+ Ответить 
Atreides
сообщение 17.01.2010 18:53
Сообщение #5


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


эм... это как? Я вот заполни в свойствах ComboBox поля String. Теперь как узнать какой выбраН?


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 17.01.2010 21:27
Сообщение #6


Гость






// А при выборе нового значения в комбобоксе просто получаем индекс выбранного элемента:

var MonthSelected: Integer;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MonthSelected := ComboBox1.ItemIndex + 1;
end;
 К началу страницы 
+ Ответить 
Atreides
сообщение 17.01.2010 21:52
Сообщение #7


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Спасибо


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 11.07.2025 9:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"