me olvidaba uso este codigo para poder ingresar los numeros bueno los decimales en el edit pero como les mencione los numeros de arriba no funcionan a ver si me pueden ayudar
Código Delphi
[-]
Var i: Integer;
pos: Cardinal;
begin
i:=0;
if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then Key := #0;
if key = '.' then key := '.';
for i := 1 to length(txtPrecio1.Text) do
if ( copy(txtPrecio1.Text,i,1) = '.' ) and not ( StrScan('.', Key) = nil ) then Key := #0;
with Sender as TcxTextEdit do
begin
pos := System.Pos('.', Text);
if not LongBool(Pos) then Dec(Pos);
Properties.ReadOnly := not (Key in ['0'..'9', '.', #8]) or
(Pos <> $FFFFFFFF) and (Key = '.') or
((Key <> #8) and (Pos < (SelStart - 1)));
end;