FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Captura de errores
Muy buenas!!
Como puedo capturar un error para evitar q se muestre por pantalla?? Puedo darle un formato al mensaje de error: ErrorText := Format('Código "%s" no existente o está incompleto. Pulse ESC para salir', [TdxTreeList.EditingText]); No quiero q se muestre por pantalla ese mensaje ya que me sobra al controlarlo con un MessageDlg anteriormente. Un Saludo a todos los forer@s |
#2
|
||||
|
||||
Código:
try ErrorText := Format('Código "%s" no existente o está incompleto.' + ' Pulse ESC para salir', [TdxTreeList.EditingText]); Except End;
__________________
Saludos, Peter Investment |
#3
|
|||
|
|||
me sigue saliendo la excepcion ya que la genera el propio componente así:
Código:
procedure TdxInplaceEdit.ValidateEdit; var Accept: Boolean; ErrorText: string; begin if Modified and (FLockValidate = 0) then begin Accept := True; ErrorText := LoadStr(dxSValidateEditErrorText); // TODO res if Assigned(FOnValidate) then FOnValidate(Self, ErrorText, Accept); if not Accept then begin MessageBeep(0); if IsWindowVisible(Handle) then Windows.SetFocus(Handle); raise EdxEditInvalidInput.Create(ErrorText); end; end; end; Código:
Accept := False; |
#4
|
|||
|
|||
Es decir, lo q kiero preguntar es si puedo solucionar el problema generando la excepcion pero destruirla nada más creada siendo transparente de cara al usuario final y no vea ninguna excepción.
|
|
|
|