|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ограничение stringgrid
Не понимаю как сделать, помогите пожалуйста.
У меня есть StringGrid, поле Edit, возможно ли сделать так, чтобы введенное в edit число стало максимальным числом в каком-то столбце stringgrid Или как по другому реализовать. чтобы edit стал максимальным значением для столбца в stringgrid |
#2
|
|||
|
|||
вот у меня есть таблица stinggrid и отдельно есть поле Edit. Вот мне нужно взять значение из поля edit и сделать так, чтобы оно стало максимальным для столбца. Т.е. макисмально число которое можно ввести.
К примеру в edit внесли 500, значит в столбце можно ввести число от 0 до 500 |
#3
|
||||
|
||||
Без защиты от набора букофф
Код:
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin if (Value <> '') and (StrToInt(Value) > StrToInt(Edit1.Text)) then StringGrid1.Cells[ACol,ARow]:= Edit1.Text; end; procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9',#8]) then Key:= #0; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 12.05.2017 в 17:43. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
kekeksey (12.05.2017)
|