Ограничение вводимых значений для combobox

[Katunya]

Доброго времени суток!
Извините если такой вопрос был уже задан, тогда просьба указать ссылочку где это возможно прочитать.

Вопрос такой - надо ограничить вводимые пользователем значения для combobox'а только теми, что имеются в нем. Т. е. пользователь не должен иметь возможность ввести собственное значение. при этом изменение style не годится. Значения в ComboBoox заносятся из файла txt. Спасибо за помощь

[Stilet]

при этом изменение style не годится

Это еще почему???

Впрочим ты всегда можешь описать его событие OnKeyPress:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 Key:=#0;
end;

[Katunya]

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

Это еще почему???

потому как список у меня примерно следущий
А00
А00.1
А00.2
...
и если я выставляю значение csDropDownList то при вводе А - автоматически у меня выбирается А00 и с этим я больше ничего поделать не могу (реализован автоподбор еще в Combo), а мне к примеру не А00 надо а А00.1

[Stilet]

а мне к примеру не А00 надо а А00.1

Каприз какой-то...
Ну введи ты A00. и получишь А00.1

[psycho-coder]

Сделай с Edit'ом.
Кидаешь Edit поверх Сombo (так что бы кнопка открытия списка от Combo торчала) и ставишь его свойствах ReadOnly=true; и BorderStyle=bsNone;
Потом по onChange (для Combo)

  Edit1.Text := ComboBox1.Text;

А индексы от Combo останутся теме же.

Ну или как предложил Stilet

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 Key:=#0;
end;

[Katunya]

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

Ну введи ты A00. и получишь А00.1

в том и проблема что при свойстве Style - csDropDownList, на точку значение почему то не реагирует..всмысле не подбирает дальше значение...(может у меня уже просто мозг закипает =) )

а при значении csDropDown - все нормально, но это значение использовать не могу, потому как надо только из списка

[Stilet]

Катя, предлагаю тебе описать событие OnChange которое будет заставлять комбик искать именно так как ты вводишь:

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
 i:=SendMessage(ComboBox1.Handle,CB_FINDSTRING,0,integer(pchar(ComboBox1.Text)));
 ComboBox1.ItemIndex:=i;
end;

Думаю это тебе подойдет.
Проверил - работает.

[Katunya]

Да спасибо! действитеьлно все работает!

[Katunya]

Oops
видимо я поторопилась с выводами..)
/я надеюсь вы меня совсем не убьете за мою невъезжаемость) /

работает со всеми буквами, кроме A/латиница, используются только латинские буквы/..и еще проблема в том что сразу имеется возможность ввести символы и цифры, чего не должно быть

[Stilet]

Хм... Знаешь я обычно такие задачи решаю двумя путями
1) Разрешаю редактирование, но когда пользователь ввел что хотел (допустим сигнал к этому нажатие клавиши Энтер, или смена фокуса) проверяю, есть ли такой пункт в списке. Если нет, то прошу его еще раз выбрать, и так пока он не введет верное значение

2) Компоненты сторонних производителей, таких как Alvas, LMD и прочие, в которых Комбобоксы навороченные.

А вот так сразу на лету проверять... это нужно этот компонент доукомплектовывать своими проверками...