Проблема с ComboBox

[boostman]

Вот такая проблема, я задаю Change для комбобокса, и чтоб при выборе определленого итема появлялся текст, вот код:

procedure TForm1.combobox1Change(Sender: TObject);
begin
if combobox1.ItemIndex = 0 then
label1.Caption := '1 TEST';
if form1.combobox1.ItemIndex = 1 then
label1.Caption := '2 TEST';


end;

Но все время вылезает надпись 1 TEST при выборе любого итема, подскажите что я делаю не так

[Банзай]

попробуй в ComboBox.onSelect прописать

[mutabor]

Change это событие от Эдита в комбобоксе (комбобокс = эдит + листбокс), то есть оно возникает при вписывании в него, или при выборе, но косвенно, так как при выборе изменяется текст в эдите. Если повторно выбрать тот же пункт, этого события уже не будет.

[Terran]

boostman, вы можете сделать так:

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex = 0 then
label1.Caption := '1 TEST';
if form1.combobox1.ItemIndex = 1 then
label1.Caption := '2 TEST';
end;

[_Engine_]

Terran, ваш ответ нельзя считать полностью верным.
Попробуйте стрелками выбрать другой итем.
Правильный ответ был дан ранее Банзай

[Terran]

_Engine_, в моём варианте стрелками всё отлично выбирается.

[_Engine_]

Но не меняется содержимое Label.Caption
(Уточнение : имеется в виду выбор стрелками и клавишей Enter)

[Terran]

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

Но не меняется содержимое Label.Caption
(Уточнение : имеется в виду выбор стрелками и клавишей Enter)

Вам может показаться мой ответ странным, но у меня всё меняется.

[_Engine_]

Всё, пора мне спать. Действительно, в приведенном вами варианте все отрабатывает как и должно быть.
Приношу свои извинения, за свою невнимательность.

[boostman]

Спасибо за помощь, но тут возникает такая проблема, мне надо поменять надписи допустим у 2 label если выбран определленный итем, но меняется только 1 надпись... как сделать чтоб меняла сразу 2 ???

 procedure TForm1.ComboBox1Click(Sender: TObject);  
 begin  
if combobox1.ItemIndex = 0 then  
 label1.Caption := '1 TEST';  
 label2.Caption := 'JET';  // Вот это как раз не меняится
  if form1.combobox1.ItemIndex = 1 then  
  label1.Caption := '2 TEST';  
 label2.Caption := 'QWERTY';  // Вот это тоже
 end;