Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-08-2008
Khronos Khronos is offline
Miembro
 
Registrado: abr 2007
Posts: 298
Poder: 17
Khronos Va por buen camino
SetErrorMode

Hola, tengo una duda con este procedimiento. Según tengo entendido evita que aparezcan mensajes de error... la verdad es que la uso bastante y no se si es del todo correcto.. es decir, ¿puede provocar algún error inesperado?

Ejemplo:

Código Delphi [-]
//*************************************************************
//Procedure: onFormDestroy
//*************************************************************
procedure TFMain.FormDestroy(Sender: TObject);
begin
    try
      SkinnedForm.Free;
      PHOENIX_Free;
      FFolder.Free;
      Rip.Free;
      Lame.Free;
    except on exception do begin
      SetErrorMode(SEM_FAILCRITICALERRORS);
    end;
  end;
end;

Sin el SetErrorMode me da errores al cerrar el formulario que no consigo depurar, pero de esta forma funciona bien...
Otro procedimiento:

Código Delphi [-]
//*************************************************************
//Procedure: OnPauseClick
//*************************************************************
procedure TFMain.PageControlChange(Sender: TObject);
begin
    case PageControl.TabIndex of
      1: begin
          try
            AlignColummns;
            if PlayList.Items.count > 0 then begin
            PlayList.Items[TrackIndex].Selected:= true;
            CenterTrackSelection;
            end;
            PlayList.SetFocus;
          except
          end;
         end;
      3: begin
            try
              Rip.Update;
                if Rip.Tracks.Count > 0 then begin
                  PageCopy.ActivePage:= tabCopy;
                  CopyList.Items.AddStrings(Rip.Tracks);
                end else
                  PageCopy.ActivePage:= tabNoCopy;
            except on exception do begin
              SetErrorMode(SEM_FAILCRITICALERRORS);
           end;
        end;
      end;
  end;
end;

Aqui funciona perfectamente el código pero sin el SetErrorMode me da un error.
No se si es muy correcto lo que estoy haciendo en mi código...

Salu2
Responder Con Cita
  #2  
Antiguo 28-08-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 20
cHackAll Va por buen camino
Las excepciones notifican que algo va mal, lo que tu haces es "callar" al Güindos y por ende estas perdiendo el control de tu aplicacion.
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita
  #3  
Antiguo 28-08-2008
Khronos Khronos is offline
Miembro
 
Registrado: abr 2007
Posts: 298
Poder: 17
Khronos Va por buen camino
Ok, gracias cHackAll lo tendré en cuenta.

Salu2
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 23:48:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi