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

Hola,

Acabo de encontrarme con otro problema al pasar de Delphi 7 a Delphi 2009. Hay un bug en DBGrid que actualiza el campo actual con el último valor tecleado al clicar con el raton en la zona sin líneas del grid.

Tenemos un form con un DBGrid y dos o más campos. Nos situamos en el primero y tecleamos algo por ejemplo 1234, pasamos al segundo con el tabulador.
Estando en el segundo hacemos un clic con el raton ( boton derecho o boton izquierdo) en la zona en blanco del grid (la que no tiene filas). El segundo campo se llena automaticamente con el último valor tecleado es decir con 1234, borrando lo que habia.

Habia preparado unas imagenes para mostrarlo pero no tengo permisos para insertarlas ... las pongo en un word ... pues tampoco puedo. lo pongo en un zip. jod**** he superado mi cuota porque he subido los recursos en español de delphi 2009 para que se los pueda descargar todo el mundo ?¿?¿ . En fin, normas son normas.


El problema es que los usuarios estan acostumbrados a clicar el boton derecho del ratón para acceder al menu contextual para editar, añadir otra línea, etc y como resultado se machaca la información existente.

¿Alguien sabe como solucionarlo?
En Delphi 7 no pasa. Sólo en Delphi 2009.

Gracias de antemano,
Quim

Envíalo a clubdelphi.contacto [a] gmail.com y ya lo ponemos nosotros.

Gracias Casimiro,
Ya os he mandado el word con la explicación detallada

A ver qué tal, creo que ha quedado como quieres:

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".

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.

¿Y...? :confused:

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,

Pues es cierto que ocurre eso :eek:

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. :)

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. :)

Eso es que contrataron a un novato como yo :D

Impresionante, Al. Eres un genio.

Saludos,
Quim

Hola,

¿Cómo hay que hacerlo para derivar o parchear el TDBGrid y evitar el error?

Es que estoy teniendo muchas incidencias debido a este bug.

Gracias por adelantado,

Quim

Buenas noticias
 

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.

Al, eres un monstruo (de sabiduría) :)

Hola.

Me sumo a los agradecimientos.

Un saludo,

Este tema ha derivado en una clase magistral de programación.

Muchisimas gracias Al, estudiaré a fondo el curso de oop.

Un abrazo,

Quim Herrera

Por lo que dices, asumo que sí te sirvió la solución, me alegro por ello. :)

Si algún moderador ya probó también esta escueta contribución y considera que merece estar en el FTP del club, me agradaría la colocaran ahí para que esté más al alcance de quien la necesite.

Saludos.

Al.