Topic: Что здесь не так?
Добрый день!
Проблема такая, хочу контролировать ввод символов в поле. Маска ввода не подходит так как я использую в этом поле значения суммы, в формате: 9 999 999,99
Использую для этого следующий метод контроля:
procedure Form1k_Edit4_OnKeyPress (Sender: string; var Key: Char);
begin
case Key of
'0'..'9':;
#8:;
',','.': IF Pos(DecimalSeparator,Form1k.Edit4.Text)=0 Then Key:=DecimalSeparator Else Key:=#0;
Else
Key:=#0;
end;
end;
Вот только при попытке ввода в поле ничего не происходит, значения клавиш не вводятся, поле остается пустым!
В чем может быть проблема?