Captura de errores

[scooterjgm]

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

[Investment]

try
ErrorText := Format('Código "%s" no existente o está incompleto.' +
' Pulse ESC para salir', [TdxTreeList.EditingText]);
Except
End;

[scooterjgm]

me sigue saliendo la excepcion ya que la genera el propio componente así:

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;

le paso Accept := False; ya que no cumple con los requisitos para salir de la celda pero tp kiero q me muestre la excepción.

[scooterjgm]

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.