Código Delphi [-] procedure ValidarPorcentajeKeyPressEdit(Caracter: Char; Edit:TrDBEdit); begin ... end;
procedure ValidarPorcentajeKeyPressEdit(Caracter: Char; Edit:TrDBEdit); begin ... end;
Código Delphi [-] procedure TFormulario.DBPorcentajeKeyPress(Sender: TObject; var Key: Char); begin ValidarPorcentajeKeyPressEdit(Key, Sender as TrDBEdit); end;
procedure TFormulario.DBPorcentajeKeyPress(Sender: TObject; var Key: Char); begin ValidarPorcentajeKeyPressEdit(Key, Sender as TrDBEdit); end;