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

[Quim Herrera]

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

[Casimiro Notevi]

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

[Quim Herrera]

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

[Casimiro Notevi]

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

[Casimiro Notevi]

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.