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;
// Permite ingresar solo números procedure WCOnlyNumber(WC: TWinControl); begin SetWindowLong(WC.Handle, GWL_STYLE, GetWindowLong(WC.Handle, GWL_STYLE) + ES_NUMBER); end;