Всем доброго времени суток!
Возник такой вопрос:
как сделать так, чтобы в объект типа TMaskEdit можно было вводить только цифры?
И главное: маску ввода использовать нельзя.
procedure TForm1.t2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8: ;
'-': if Length(t2.Text) <> 0 then Key := #0;
else Key := #0
end;
end;