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.