Bug en DBGrid al clicar en la zona sin líneas

[Quim Herrera]

He hecho el programa sin nada de código para poder ver que estaba pasando: Un dataset, un TTable y un DBgrid.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
table1.Open;
end;

end.

[Casimiro Notevi]

Empezado por Quim Herrera

He hecho el programa sin nada de código para poder ver que estaba pasando: Un dataset, un TTable y un DBgrid.

¿Y...?

[Quim Herrera]

Quiero decir que no no hay nada raro en los eventos porque no hay nada de código. Tiene que ser un bug del DBGrid pero no se como solucionarlo.
Saludos,

[Casimiro Notevi]

Pues es cierto que ocurre eso

[[Al González]]

Empezado por Quim Herrera

Quiero decir que no no hay nada raro en los eventos porque no hay nada de código. Tiene que ser un bug del DBGrid pero no se como solucionarlo.

Me encantaría tener acceso a un Delphi 2009 con sus fuentes de la VCL para echar un vistazo al problema y tratar de encontrar una solución. Si tú o alguno de los compañeros puede darme acceso mediante LogMeIn o un programa similar, se lo agradecería.

De encontrar alguna posible solución, la publicaré con gusto aquí mismo.

Saludos.

Al González.

[Casimiro Notevi]

Al, yo he hecho la prueba con delphi 2007.

[[Al González]]

Empezado por Casimiro Notevi

Al, yo he hecho la prueba con delphi 2007.

Afectivamente, acabo de comprobar que esto también sucede en Delphi 2007y ocurre tanto con registros en edición (dsEdit) como en inserción (dsInsert).

Además, no sólo se trata de un efecto visual, sino que el campo que adquiere el foco recibe el mismo texto que se capturó en la otra celda. De tal suerte que si se captura "abc" en un campo alfanumérico y nos pasamos a un campo numérico para, acto seguido, dar el clic en la zona vacía, ocurre la excepción típica de que el dato no puede ser asignado.

Según he podido examinar con la pila de llamadas (Call Stack) del depurador de Delphi, existe una pequeña diferencia entre el código fuente del método TCustomDBGrid.MouseDown (unidad DBGrids.pas) de la versión 7 y el de la versión 2007, y dicha diferencia es la causa del problema.

Declaración del método:

Código Delphi [-]
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;  // Afortunadamente es virtual 

Parte de su implementación en Delphi 7:

Código Delphi [-]
  Cell := MouseCoord(X, Y);
  if (Cell.X < 0) and (Cell.Y < 0) then
  begin
    inherited MouseDown(Button, Shift, X, Y);
    Exit;
  end;

La misma parte en Delphi 2007:

Código Delphi [-]
  Cell := MouseCoord(X, Y);
  if (Cell.X < 0) and (Cell.Y < 0) then
  begin
    if (FDataLink <> nil) and (FDataLink.Editing) then
      UpdateData;
    inherited MouseDown(Button, Shift, X, Y);
    Exit;
  end;

A simple vista no parece haber razón para que hayan agregado ese par de líneas, pero felizmente MouseDown es un método virtual que puede ser redefinido en una clase derivada de TDBGrid (ya sea registrada o simplemente interpuesta).

Cuando un método no se comporta como queremos y es virtual, existen muchas posibilidades de adaptar ese comportamiento a nuestras necesidades. Pero antes de hacer cualquier cosa sería bueno investigar qué razón tuvo CodeGear para agregar ese par de líneas.

Regresaré luego, apoyen este caso.

Al González.

[Casimiro Notevi]

Empezado por Al González

[..] Pero antes de hacer cualquier cosa sería bueno investigar qué razón tuvo CodeGear para agregar ese par de líneas.

Eso es que contrataron a un novato como yo

[[Al González]]

Empezado por Al González

Pero antes de hacer cualquier cosa sería bueno investigar qué razón tuvo CodeGear para agregar ese par de líneas.

Descubrí por qué lo hizo: para afianzar el valor que el usuario escribe en una celda.

En Delphi 7, por ejemplo, sucede que podemos escribir el valor de un campo en la celda correspondiente, pero si, antes de pasar el foco a otra celda o de guardar el registro, hacemos clic en el área vacía de la rejilla, dicho valor se pierde, mostrando el campo el valor que tiene realmente (porque el texto capturado no es asignado al campo en ningún momento).

Las líneas que añadieron al método TCustomDBGrid.MouseDown parecen solucionar esta cuestión, pero causó el efecto colateral que preocupa a nuestro amigo Quim.

Este es el reporte en QualityCentral. Problema que, según parece, ya fue corregido en las actualizaciones de Delphi 2010.

El autor del reporte en su momento sugirió hacer un cambio que parece lógico (sección Workarounds) y evidenciar con ello cuál fue el desacierto del programador que hizo la mejora, pero no estoy muy seguro de que ese cambio sea adecuado, amén de que implicaría alterar código fuente de la VCL.

Esta noche me di a la tarea de investigar un poco más a fondo el problema y me complace poder ofrecer una solución. El archivo .zip anexo contiene una unidad .pas con una clase TDBGrid (de igual nombre que la nativa), la cual podemos utilizar de manera "interpuesta" (evitándonos registrar un nuevo componente).

Quim, en el código de tus formularios tendrías que poner algo como esto:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, GridClickPatch;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ...

Date algo de tiempo para estudiar este curso de Programación Orientada a Objetos. Todo lo que puedas aprender sobre esta técnica de programación te ayudará a navegar por el código fuente de la VCL con un poco más de confianza, para encontrar respuestas y soluciones más rápidamente.

Cuando tenía 16 años, intenté comprender el código de Turbo Vision (la "VCL" de Turbo Pascal) sin saber nada de POO. Todo resultaba inútil hasta que comencé a leer concienzudamente los temas de POO en la propia ayuda. En ese entonces casi nadie tenía acceso a Internet; valora lo que tienes ahora y éntrale sin miedo a la POO.

Saludos.

Al González.