Показать сообщение отдельно
  #1  
Старый 27.03.2009, 07:06
Darken Darken вне форума
Прохожий
 
Регистрация: 24.02.2009
Сообщения: 48
Репутация: 10
По умолчанию Конторль вводимых значений для множества полей Edit

Надо, чтобы в поле можно было ввести только цифры, разделитель десятичных дробей и удаление, я реализовал это так:

PHP код:
procedure TForm3.sEdit2KeyPress(SenderTObject; var KeyChar);  //EDIT2
begin
  
case Key of
  
'0'..'9'#8:;
  
'.',',':  begin
            Key 
:= DecimalSeparator;
            if 
Pos(DecimalSeparator,sEdit2.Text)<>0 then Key := #0;
            
end;
  else 
Key:= #0;
  
end;
end

Вся проблема в том, что я не пойму как прикрутить это дело для множества определенных полей Edit, т.к. писать вышеизложенное для каждого поля муторно.

И еще может кто подскажет как модернизировать код для того, чтобы если пользователь ввел первой цифрой 0 - автоматически менялось на 0 c разделителем десятичных знаков принятых в системе, т.е. с использованием DecimalSeparator.

Заранее благодарен
Ответить с цитированием