Foros Club Delphi - Captura de errores

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Captura de errores (https://www.clubdelphi.com/foros/showthread.php?t=14828)

scooterjgm

01-10-2004 13:31:18

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

Investment

01-10-2004 13:43:00

Código:

  try

    ErrorText := Format('Código "%s" no existente o está incompleto.' + 

                     ' Pulse ESC para salir', [TdxTreeList.EditingText]);

  Except

  End;

scooterjgm

01-10-2004 16:59:51

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;

le paso

Código:

Accept := False;

ya que no cumple con los requisitos para salir de la celda pero tp kiero q me muestre la excepción.

scooterjgm

04-10-2004 16:52:39

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.

La franja horaria es GMT +2. Ahora son las 18:32:18.