[[AgustinOrtu]]

Daniel,

Empezado por ecfisa

Código Delphi [-]
// Permite ingresar solo números
procedure WCOnlyNumber(WC: TWinControl);
begin
  SetWindowLong(WC.Handle, GWL_STYLE,
    GetWindowLong(WC.Handle, GWL_STYLE) + ES_NUMBER);
end;

Aprovecho que estas de oferta y me llevo uno de estos