Varios TEdit solo numericos

[tarco35]

Muestro como lo he resuelto:

Código Delphi [-]
procedure TFormNuevaVisita.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  cd:string;
begin
  If Key='.' then Key:=',';
  cd :=(Sender as TEdit).Text;  // variable intermedia para clarificar codigo
  If ((Pos(',',Cd))<>0) AND (Key=',') Then Key:=#0;  // solo se permite un signo de puntuacion
  (Sender as TEdit).ReadOnly := not (key in [#8,#46, ',','0'..'9']);  // sentencia encontrada por el foro, no recuerdo de quien
end;

Ahora ya puedo asignarle al evento OnKeyPress de los 9 TEdit la misma rutina
Gracias a todos.

[[movorack]]

Para que no te enredes con lo del formato...

Código Delphi [-]
procedure TForm1.NumericKeyPress(Sender: TObject; var Key: Char);
  var
    lExTemp: Extended;
begin
  if not TryStrToFloat(TEdit(Sender).Text+Key, lExTemp) then
    Key := #0;
end;

[tarco35]

Gracias, aunque Delphi6 no la tiene, tiene una parecida.
Muy buena aportacion.

[ecfisa]

Hola.

Te aconsejo usar un código similar en los eventos OnExit de los Edits para verificar los datos que pudieran ingresar por copiado/pegado.

Ej.:

Código Delphi [-]
procedure TForm1.EditsExit(Sender: TObject);
var
  ed: TEdit;
  v: Extended;
begin
  ed := TEdit(Sender);
  if (ed.Text > '') and not TryStrToFloat(ed.Text, v)  then
  begin
    ed.SetFocus;
    raise Exception.Create('Número inválido');
  end;
end;

Saludos