Приствоить тест ComboBox в OnChange

← →
Дмитрий_177 (2006-02-05 22:20) [0]

Столкнулся с такой проблемой в событии OnChange у ComboBox нужно проверить одно условие, и если оно выполняется то присвоить ComboBox.Text другое значение, независимо от того которое выбрал пользователь. Делаю так:
procedure TForm1.ComboBox1Change(Sender: TObject); begin if <условие> then ComboBox1.Text := "1"; // к примеру end;
так вот всеравно ComboBox отображает то что выбрал пользователь в любом случаее..

← →
Defunct © (2006-02-06 02:44) [1]

"Следствие - если твоя пpогpамма выполняет мистические действия, значит, ты сделал что-то невеpоятно тyпое." (C) законы Мерфи.

← →
VIB © (2006-02-06 03:19) [2]

меняй не Text, а ItemIndex

← →
icWasya © (2006-02-06 15:58) [3]

тут ещё может быть понадобится поставить проверку на рекурсию

> procedure TForm1.ComboBox1Change(Sender: TObject);

а в OnClick?

Приствоить тест ComboBox в OnChange Найти похожие ветки