ComboBox - убийца нервных клеток

[krem]

Для тех кто не очень ленивый.
Вторую ночь ломаю свою кучерявую головушку..

Суть вопроса.

Имеем: комбобокс унд метка.
Кого имеем в комбобоксе: 10 строк "Один", "Два", ... , "Десять".
Еще есть текстовые переменные (тоже 10), путь будут s1,s2,..,s10 со значением каждая.
Хотим: Чтобы при выборе в списке какой-то строки (напр. "Два") в метке отображалась переменная s2. И так для всех.
Пишу для себя (т.е. это очень важно). Ответ обязателен.

[2face]

Попробуй сделать массив s[i] string'ов где связь между элементами комбо и массива будет через индексы. Соответвенно в событии onchange будет выбор s[combobox1.itemindex].

[mrandrey]

текстовку засунь в масив: s:array[0..9]of string;
а затем так: label 1. caption:=s[combobox1.itemindex];

[Jeni]

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

Хотим: Чтобы при выборе в списке какой-то строки (напр. "Два") в метке отображалась переменная s2. И так для всех.

Если переменных мало и фиксированное количество, то можно, в принципе, обойтись и без дополнительных массивов:

case ComboBox.ItemIndex of
  0: Label.Caption := S1;
  1: Label.Caption := S2;
  ...
  9: Label.Caption := S10;
end;

Хотя конечно такой код не является универсальным.

[pu4koff]

заполняешь так:

ComboBox1.AddItem('Один',@s1);
 ComboBox1.AddItem('Два',@s2);

где s1,s2 - переменные типа string (глобальные или прописанные в форме, т.к. мы записываем указатели на них)
и на выборку делаем например так:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Caption := pstring(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^;
end;

[krem]

Спасибо. Я разобрался.

Очень сложный вопрос в тему:
посему Panel не закласывается?

стланно, когда делаис зёльтый цвет в свойстве color, компились а там фига.. осень бесит, плисем цвет показивает толька если винда с классисеским стилем.

Плавда, это не плиятно.

PS А че смайлы такие страшные?

[OrdJONY]

В главной форме или любой другой подключи модуль XPMan и должно все быть норм

[krem]

я всегда так делаю, но не работает.
Просто хочется черного цвета с зелеными буковками, а получается серая блевота.

[pu4koff]

это особенности XPMa'а этого... вапще как-то исправляеца, но придеца с бубном поплясать...

[SERG1980]

У панели измени св-во ParentBackGround на true потом на false и должно быть нормально