Proceso al cerrar una form

[fwhite]

Hola amigos:
Haber si me podeis decir por que no funciona la siguiente procedure desde donde indico. Graciñas desde ya.

Código Delphi [-]
 
procedure TfmDeportes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  With dmMain do
    begin
      tbDeportes.Active := False;
      tbContadores.Active := False;
    end;
    ShowMessage('Punto de Control');   // hasta aquí funciona
  With dmMain.tbDeportes do   // desde aquí no lo tiene en cuenta
    begin
      if State in [dsInsert] then
        begin
          if MessageDlg('Los datos introducidos no han sido grabados' +
            #13 + #13 +
            '¿Deseas grabarlos ahora?', mtconfirmation, [mbNo, mbOk], 0) =
            mrOk then
            Post;
          With dmMain.tbContadores do
            begin
              Edit;
              FieldValues['Deportes'] := FieldValues['Deportes'] + 1;
              Post;
            end;
        end;
      if State in [dsEdit] then
        begin
          if MessageDlg('Los datos introducidos no han sido grabados' +
            #13 + #13 +
            '¿Deseas grabarlos ahora?', mtconfirmation, [mbNo, mbOk], 0) =
            mrOk then
            Post;
        end;
    end;
  Action := caFree;
end;

[[oscarac]]

tu codigo esta algo desordenado
creo que que colocas el active en false
eso es como cerrar la tabla

entonces.. si la tabla estar cerrada, no puede realizarse ninguna operacion con ella

[[Chris]]

Antes que todo, ordena un poco tu código y utiliza correctamente las equitas Delphi. Fíjate la diferencia con respecto a tu código:

Código Delphi [-]
procedure TfmDeportes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    With dmMain do
    begin
        tbDeportes.Active := False;
        tbContadores.Active := False;
    end;
    
    ShowMessage('Punto de Control'); // hasta aquí funciona
    
    With dmMain.tbDeportes do // desde aquí no lo tiene en cuenta
    begin
        if State in [dsInsert] then
        begin
            if MessageDlg('Los datos introducidos no han sido grabados' +
                           #13 + #13 + '¿Deseas grabarlos ahora?',
                           mtconfirmation, [mbNo, mbOk], 0) = mrOk then
                Post;
                
            With dmMain.tbContadores do
            begin
                Edit;
                FieldValues['Deportes'] := FieldValues['Deportes'] + 1;
                Post;
            end;
        end;
        
        if State in [dsEdit] then
        begin
            if MessageDlg('Los datos introducidos no han sido grabados' +
                          #13 + #13 + '¿Deseas grabarlos ahora?',
                          mtconfirmation, [mbNo, mbOk], 0) = mrOk then
                Post;
        end;
    end;
    Action := caFree;
end;

Ahora, sería mejor así:

Código Delphi [-]
procedure TfmDeportes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    With dmMain do
    begin
        tbDeportes.Active := False;
        tbContadores.Active := False;
    end;
    
    ShowMessage('Punto de Control'); // hasta aquí funciona
    
    With dmMain.tbDeportes do // desde aquí no lo tiene en cuenta
    begin
        if (State in [dsInsert,  dsEdit]) then
        begin
            if MessageDlg('Los datos introducidos no han sido grabados' +
                           #13 + #13 + '¿Deseas grabarlos ahora?',
                           mtconfirmation, [mbNo, mbOk], 0) = mrOk then
                Post;
                
            With dmMain.tbContadores do
            begin
                Edit;
                FieldValues['Deportes'] := FieldValues['Deportes'] + 1;
                Post;
            end;
        end;
    end;
    Action := caFree;
end;

Pero lo que realmente quieres debe ser esto:

Código Delphi [-]
procedure TfmDeportes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    With dmMain.tbDeportes do // desde aquí no lo tiene en cuenta
    begin
        if (State in [dsInsert,  dsEdit]) then
        begin
            if MessageDlg('Los datos introducidos no han sido grabados' +
                           #13 + #13 + '¿Deseas grabarlos ahora?',
                           mtconfirmation, [mbNo, mbOk], 0) = mrOk then
                Post;
                
            With dmMain.tbContadores do
            begin
                Edit;
                FieldValues['Deportes'] := FieldValues['Deportes'] + 1;
                Post;
            end;
        end;
    end;
   
    With dmMain do
    begin
        tbDeportes.Active := False;
        tbContadores.Active := False;
    end;
    
    Action := caFree;
end;

El problema era que estabas cerrando las tablas antes de hacer las comparaciones de si ésta estaba en modo de edición o inserción. Por consiguiente las condiciones siempre devolvían False y nunca se ejecutaba lo que pretendías.

Saludos,
Chris

[[maeyanes]]

Hola...

¿Por que repites temas?

http://www.clubdelphi.com/foros/showthread.php?t=75203


Saludos...

[ecfisa]

Hola.

Gracias por el aviso maeyanes , ya los combiné.

fwhite, como ya te han dicho: Por favor no dupliques los temas.

Saludos y gracias por tu colaboración.

[fwhite]

Hola amigos:
En primer lugar, pido disculpas a todos por mi mal uso del foro. Procuraré en adelante seguir estrictamente las normas.
En segundo lugar, efectivamente, el cierre de las Bases estaba mal colocado, con lo que el problema está resuelto.
Graciñas a todos.