Превращение Edit в "EditFloat"
Здравствуйте!
Частенько нужно, в эдитах вводить суммы.
Как можно отсечь возможность ввода символов отличных от символов цифр?
Интрересует простой способ или другие варианты реализации подобного.
Была попытка на событии OnKeyUp Edit1 писать:
case key of
96,97,98,99,100,101,102,103,104,105,
48,49,50,51,52,53,54,55,56,57:Edit1.Text:=Edit1.Text
else
begin
for i:=1 to length(Edit1.Text) do
begin
delete(Edit1.Text,pos(LowerCase(chr(key)),Edit1.Text),1);
end;
end;
end;
Работает только для английской раскладки и не очень красиво
Частенько нужно, в эдитах вводить суммы.
Как можно отсечь возможность ввода символов отличных от символов цифр?
Интрересует простой способ или другие варианты реализации подобного.
Была попытка на событии OnKeyUp Edit1 писать:
case key of
96,97,98,99,100,101,102,103,104,105,
48,49,50,51,52,53,54,55,56,57:Edit1.Text:=Edit1.Text
else
begin
for i:=1 to length(Edit1.Text) do
begin
delete(Edit1.Text,pos(LowerCase(chr(key)),Edit1.Text),1);
end;
end;
end;
Работает только для английской раскладки и не очень красиво
Комментарии
Только в Делфе работает, а в среде FastReport ругается если условие истина