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

[Casimiro Noteví]

Evidentemente, eso no es un fallo del dbgrid, echa un vistazo al dataset asociado al dbgrid, mira los eventos, etc. a ver si haces algo "raro".

[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 Noteví]

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 Noteví]

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 Noteví]

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.