Въпрос # 5 369 ... така че в Edit беше възможно да се въвеждат числа само от 1 до 31, не правете втория ден

Общност на програмисти
Комуникация, помощ, обмен на опит

Експерт от Delphi.int.ru

Други раздели на портала

Отидете на въпрос:

Статистика за днес:

Въпроси: 0
Отговори: 0
Мини-форуми: 0

Топ експерти

Здравейте експерти!
Моля, кажете ми как да направя възможно въвеждането на числа само от 1 до 31 в Редактиране, не мога да направя втория ден.

Мини форум с въпроси

има много по-просто и красиво решение.
До редактиране поставете Image. А за самото Редактиране в събитието Onchange напишете някъде по този начин

опитвам
i: = StrToInt (Edit1.text);
ако (i> = 1) и (i
И това е всичко. Сега, когато потребителят въведе невалиден номер, вдясно в изображението ще се появи предупреждение. Ако всичко е наред - например зелена точка.

Вземете TSpinEdit, задайте го в инспектора на обекти:

---