Ввод только цифр в Edit

[Glorius]

Не пойму, в чем проблема. Код вроде нормальный, но не работает.

if ((Key >= '0') && (Key <= '9')) return;
else Key = 0;

Буквы все равно вводятся. Обработчик OnKeyDown.

 

[Glorius]

Спасибо. Разобрался сам. Обработчик нужно писать на OnKeyPress.

 

[Greenpeas]

Но при этом не работает клавиша BackSpace (стирание)... Кто поможет?

 

[European]

<!--QuoteBegin-Greenpeas+13:07:2007, 11:11 -->
<span class="vbquote">(Greenpeas @ 13:07:2007, 11:11 )</span><!--QuoteEBegin-->Кто поможет?

[snapback]72203" rel="nofollow" target="_blank[/snapback]​

[/quote]
Гугл помогает всем, особенно тем, кому не лень им пользоваться!

if ((Key >= '0') && (Key <= '9')) {} // цифры
else if (Key == 8) {} // <-
else if ((Key == '.') || (Key == ',')) // запятая
{
if (((TEdit*)Sender)->Text.Pos(DecimalSeparator)!=0) // если запятая уже есть
Key = 0;
else // если ещё нет
Key = DecimalSeparator;
}
else Key = 0; // не цифра

P.S. DecimalSeparator - глобальная переменная - разделитель целой и дробной части.

 

[Greenpeas]

ПРИОГРОМНЕЙШЕЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!