Фильтрация ввода с Edit

[Lyubimov]

Здравствуйте!

Необходимо сделать так, что бы пользователь мог вводить только числа. Другие последовательности символов надо игнорировать

Я сделал так

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    if (Key == VK_BACK) {
        return;
    }

    if (Key == ' ') {
        Key = 0;
        return;
    }

    TEdit *Edit1 = dynamic_cast<TEdit*>(Sender);

    if (Edit1 == NULL) {
        return;
    }

    try {
        StrToFloat(Edit1->Text.Insert(AnsiString(Key), Edit1->SelStart + 1));
    }
    catch (...) {
        Key = 0;
    }
}

Но есть проблемы

1. Нельзя сразу ввести отрицательное число
решается заменой строки

StrToFloat(Edit1->Text.Insert(AnsiString(Key), Edit1->SelStart + 1));

на

StrToFloat(Edit1->Text.Insert(AnsiString(Key), Edit1->SelStart + 1) + "0");

2. Пользователь может ввести много нулей

Или можно проверять значение на выходе

void __fastcall TForm1::Edit2Exit(TObject *Sender)
{
    TEdit *Edit1 = dynamic_cast<TEdit*>(Sender);

    if (Edit1 == NULL) {
        return;
    }

    try {
        if (StrToFloat(Edit1->Text) == 0) {
            Edit1->Text = "0";
        }
    }
    catch (...) {
        MessageBox(NULL, "Числовой параметр задан неверно!", "Ошибка ввода!", MB_OK | MB_ICONSTOP | MB_TASKMODAL | MB_TOPMOST);
        Edit1->Text = "0"; // Или другое значение по умолчанию
        Edit1->SetFocus();
    }
}

Может быть есть альтернативные варианты?

[Smitt&Wesson]

Конечно есть.

#define DigitalKeys "-0123456789,"

void __fastcall TMainForm::FunctionKeyPress(TObject *Sender, char &Key)
{
AnsiString a = DigitalKeys";
if(a.Pos(Key) || Key == 0x08 || Key == 0x0D){My function();return;}
Key = 0;
}

Вводит знак минус числа и запятую.