ComboBox

← →
Bocman (2003-09-26 16:10) [0]

как в ComboBox"е запретить печатать, т.е.разрешить только выбирать из списка?
Я что-то не нашел свойства ReadOnly...

← →
dataMaster © (2003-09-26 16:13) [1]

Посмотри свойтва Style

← →
Izyum © (2003-09-26 16:14) [2]

procedure TInputZakazForm.cbTimeKeyPress(Sender: TObject; var Key: Char); begin if (key<>#8) and (key<>#13) then Key:=#0; end;

← →
han_malign © (2003-09-26 16:23) [3]

Style:=csDropDownList

← →
dataMaster © (2003-09-26 16:25) [4]

>Izyum

Ну и? Нажал BackSpace и все стерлось...

← →
han_malign © (2003-09-26 16:47) [5]

>>Izyum © (26.09.03 16:14) [2]
>Ну и? Нажал BackSpace и все стерлось...
- во-во - может еще через hook-и это делать??? Бесполезно - зато тоже круто...

"Будьте проще - и люди к вам потянутся"(с)В.И.Ленин

← →
Izyum © (2003-09-26 16:54) [6]

Код я выдернул из рабочего проекта - он реализует то, что нужно мне. Ним я хотел показать, как можно запретить (частично) редактирование, и не только в ComboBox.

Пример: нужно разрешить вводить только цифири и точку (IP-адреса), причем предусмотреть независимость от раскладки клавы (запятую принимать, но заменять на точку):

procedure TItemClientsForm.eIPHostKeyPress(Sender: TObject; var Key: Char); begin if (key>#32) and (not (key in [ #44, #46, #48..#57])) then key:=#0; if Key=#44 then Key:=#46; end;

А теперь давайте попробуем это же сделать с помощью Style?:-)

>Izyum
А теперь давайте попробуем это же сделать с помощью Style?:-)

Давайте. Вопрос был таким:
запретить печатать, т.е.разрешить только выбирать из списка

Еще вопросы есть?

>dataMaster © (26.09.03 16:58) [7]
Ох как я не люблю заниматься флеймом, но...
Где-то вверху форума есть ссылка на рассказ "Правильный вопрос" (по моему так назывался?) Может стоит его еще раз перечитать? Вам? Мне? Обоим?

Простота реализации - палка о двух концах! Нужно учиться (а сюда как правило ходят учиться) мыслить гибче и глубже. Кстати, и мне тоже!

На этом дискуссию считаю закрытой.

>Izyum

Поддерживаю! :-)

ComboBox Найти похожие ветки