Coma en teclado numérico

[andres1569]

Hola:

Mírate este hilo, donde se trató este mismo tema. La solución consiste en sustituir únicamente el punto cuando se pulsa desde el teclado numérico, y afecta a toda la aplicación, lo cual en la mayoría de los casos será válido:

http://www.clubdelphi.com/foros/show...?threadid=1463

También puedes usar la solución de Cadetill, y si los DBEdits van enlazados a un evento común, hacer la siguiente comprobación:

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  with TDBEdit(Sender) do
    if (key = '.') AND Assigned(Field) AND 
       (Field.DataType in [ftCurrency, ftFloat]) then
      key := ',';
end;