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

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