Подскажите, плиз, как разрешить ввод данных в DBGrid только из списка PickList ?
Т.е. вводится другое значение – оно возвращается к старому.
Желательно более или менее подробно
| Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум на Исходниках.RU > Delphi: Базы данных > PickList |
| Автор: Jin X 13.05.18, 20:09 |
| Всем привет. Подскажите, плиз, как разрешить ввод данных в DBGrid только из списка PickList ? Т.е. вводится другое значение – оно возвращается к старому. Желательно более или менее подробно |
| Автор: Jin X 13.05.18, 22:19 |
| Сделал через TField.OnSetText: <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> procedure TForm3.FieldSetText(Sender: TField; const Text: String); begin with DBGrid1 do if (Text = '') or (Columns[SelectedIndex].PickList.IndexOf(Text) >= 0) then Sender.AsString := Text; end; |