Ограничение ввода в Edit

[xxxsas]

увидел 1 код:

 Set <char, '0', '9'>Dig;
Dig<<'0'<<'1'<<'2'<<'3'<<'4'<<'5'<<'6'<<'7'<<'8'<<'9';
if(!Dig.Contains(Key))
{Key = 0;}

А мне надо чтобы можно было вставлять "-" (знак минус или тире), причем знак "-" должен быть доступен для написания только в начале текста в Edit и только 1 раз.
т.е. что - то вроде этого:

if(Key = '-')
{if (вначале строки и первый раз)
 {Set <char, '0', '9'>Dig;
 Dig<<'0'<<'1'<<'2'<<'3'<<'4'<<'5'<<'6'<<'7'<<'8'<<'9';
 if(!Dig.Contains(Key))
 {Key = 0;}}
else Key = 0;

Как можно решить задачу?

[MaTBeu]

Используйте MaskEdit. Там можно задавать маску ввода.

[xxxsas]

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

Используйте MaskEdit. Там можно задавать маску ввода.

Насколько я знаю задание маски предпологает ввод по маске. Допустим маска: -00000.0000Получается, что пользователь должен ввести число с минусом(обязательно). А что делать если ему нужно ввести положительное число?

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

[MaTBeu]

Ну значит вам нужно каждый раз при изменении текста в Edit (событие OnChange) проверять текст вручную.

[xxxsas]

я думал что кто - то уже сталкивался с подобным и есть фрагмент кода(чтобы самому время не тратить), тем более что google выдает массу всего, но не то, что нужно...