Volver al Dbgrid después de una accion

[shinopeat87]

Hola amigos buenas tardes soy nuevo en el foro y quisiera realizar una consulta, mi pregunta es la siguiente: tengo un dbgrid1 en un form1 y un boton_eliminar_registro en el mismo form1, cuando selecciono una fila del dbgrid1 los registros de la misma los muestro en varios labels que estan en el mismo form1 y cuando elimino dicho registro con el boton_eliminar_registro este registro se borra de la grilla pero los labels siguen teniendo el valor del registro ya eliminado hasta que hago click nuevamente en cualquier fila del dbgrid1 tomando el valor de los registros de la fila. ¿como hacer para que al momento de eliminar el registro automaticamente el cursor seleccione una fila para asi mostrar los registros existentes o en su caso no mostrar nada si no hay registros en el dbgrid1?

muchas gracias amigos saludos!

[cloayza]

Estimado shinopeat87

Según mi punto de vista, al parecer usted está utilizando TLabel para mostrar información de los campos. Y para eso al momento de seleccionar una fila del DBGrid se le asignen los valores de los campos.

Si esta es la situación lo que debe hacer es que luego de eliminar el registro, limpiar el contenido de los Label. Eso lo puede hacer en el evento OnAfterDelete(...).

procedure TForm2.Table1AfterDelete(DataSet: TDataSet);
begin
label1.caption:='';
...
end;

Si este es el método que usa (TLabel) para mostrar información, le sugiero usar los TDBText. Así se evita el problema.

Saludos cordiales

[shinopeat87]

Estimado shinopeat87

Según mi punto de vista, al parecer usted está utilizando TLabel para mostrar información de los campos. Y para eso al momento de seleccionar una fila del DBGrid se le asignen los valores de los campos.

Si esta es la situación lo que debe hacer es que luego de eliminar el registro, limpiar el contenido de los Label. Eso lo puede hacer en el evento OnAfterDelete(...).

procedure TForm2.Table1AfterDelete(DataSet: TDataSet);
begin
label1.caption:='';
...
end;

Si este es el método que usa (TLabel) para mostrar información, le sugiero usar los TDBText. Así se evita el problema.

Saludos cordiales
Excelente cloayza muchisimas gracias funciono a la perfeccion!! y en tan sensillos pasos!