Tecla punto como coma decimal

[Neftali [Germán.Estévez]]

Yo más que en los eventos de teclas, lo haría en el OnChange del componente (TEdit). Si lo haces con las tecla y por ejemplo "PEGAS" un valor con el menú contextual del ratón, los eventos de teclas no saltarán.

Si lo haces con el evento OnChange o similar, lo único que debes tener en cuenta es dejar el cursor en la misma posición que estaba antes de modificar el valor (revisa para ellos las propiedades SelText, SelStart,... del TEdit).

[fidel]

Código Delphi [-]
  //controlar entrada solo números
  if ( StrScan('0123456789.,'+chr(7)+chr(8), Key) = nil ) then  Key := #0;
  //cambiar punto decimal por coma
    if key = '.' then key := ',';
  //controlar entrada una sola coma
  for i := 1 to length(Edit1.Text) do
    if ( copy(Edit1.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then  Key := #0;
end;