Я думал о производной, новом варианте компонента TIntegerfield, но я не могу понять как мне его получить во время разработки, ведь он не устанавливается в палитру компонентов. Это то, что вы хотите. Создайте следующий молуль:
MICRON.PAS:
unit micron;
interface
uses DB, DBTables, Classes;
type
TMicronField = class(TIntegerField) public function IsValidChar(Ch: Char): Boolean; override; end;
procedure Register;
implementation
function TMicronField.IsValidChar(Ch: Char): Boolean; begin Result := Ch in ['+', '-', '0'..'9','.']; end;
procedure Register; begin RegisterFields([TMicronField]); end;
