DBGrid

[radge]

Buenas tengo un dbgrid , con unos 100 registros , y en el evento "onCellChanged" hago una serie de instrucciones.

Cuando termino el dbgrid se refresca y pòr lo tanto el puntero vuelve arriba del todo , cuando tienes 3 o 4 registros no pasa nada pero cuando tienes más de 50 si.


Habria alguna forma de que se quede en el ultimo puntero seleccionado ? o en el siguiente ?

salu2 radge

[tcp_ip_es]

antes del refresh quedate con la clave del registro en el que estes y luego realiza el refresh y después haz un locate con la clave que habías guardado

Saludos, Tony

[[coso]]

Hola, lo mas interesante seria que no movieses el puntero con las instrucciones del OnCellChanged. Si no puedes evitarlo, entonces puedes probar de salvar algun dato identificador del registro actual antes de esas instrucciones y luego mediante un locate recolocarlo. Podrias tambien colocar DBGrid.DataSource = nil y luego restaurar la original, por tal de no ver el puntero moviendose por pantalla. Todo y eso, la opcion de no mover el puntero es la mejor y mas limpia. Saludos.

[*Caro*]

Hola radge, lo que yo haría es crearme un marcador para almacenar la posición actual del registro y despues restaurar a esta posición, esto se hace con un BookMark.

Código Delphi [-]
var
 Marca : TBookMarkStr;
begin
 Marca := Query1.Bookmark; //Creamos la marca del registro actual
 ........ 
 //hacemos todas nuestras operaciones
 ........
 Query1.Bookmark := Marca; //restauramos a la posición del registro que tiene la marca

Saluditos

[*Caro*]

Empezado por coso

Podrias tambien colocar DBGrid.DataSource = nil y luego restaurar la original, por tal de no ver el puntero moviendose por pantalla.

A parte de lo que te dice el amigo coso, sino quieres ver el puntero moviendose, también lo puedes con:

Código Delphi [-]
 Query1.DisableControls; //desactivamos nuestros controles asociados a nuestro DataSet
 //hacemos nuestras operaciones
 Query1.EnableControls; //Volvemos a activar dichos controles

Saluditos

[[coso]]

vaya gracias caro, desconocia esas funciones

[*Caro*]

No es nada amigo coso, me alegra que te haya servido .

Saluditos

[radge]

Gracias !!! Es perfecto !!! Lo del bookmark me ha ido de perlas muchas gracias.

Pero una pregunta , imaginaros que tengo el dbgrid con 10 registros , con un check los marco y van desapareciendo , a la que desmarco el último al intentar recuperar el bookmark me falla , normal.

Como podria solucionar lo ? Porque no devuelve un integer.

salu2 radge

[[coso]]

Código Delphi [-]
...
if marca = nil then exit;
...

[radge]

Empezado por coso

Código Delphi [-]
...
if marca = nil then exit;
...

[Error] SupVision.pas(210): Incompatible types: 'String' and 'Pointer'

[[coso]]

ah, pues marca = ''

[[coso]]

o if recordcount = 0 ...

[*Caro*]

Holas, TBookMarkStr es una cadena que tiene el valor del BookMark del DataSet, por lo que no estará vacío cuando hagas el borrado, ademas según la ayuda el formato depende del tipo del DataSet. Talvez sea mejor que manejes una banderita y la activas cuando tu DataSet este con estado dsInsert o dsEdit y solo actualizas la marca cuando tu banderita este activa.

Saluditos

[Cañones]

Gracias caro por el dato, Yo queria hacer eso, pero no daba con el tipo de variable que definia y por ese motivo no me funcionaba.
Gracias nuevamente.
Saludos