Una más de lo DBGrid y su barra de desplazamiento

[[gluglu]]

No había intervenido hasta ahora porque suponía que Gabo tenía conocimiento de este hilo en el cual participé en su momento.

Entiendo que no hace falta ningún Panel ni nada. Basta con redimensionar el propio DBGrid para que vuelvan a aparecer la barra de Scroll vertical.

Código Delphi [-]
procedure DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBGrid1.Height := DBGrid1.Height + 1;
  DBGrid1.Height := DBGrid1.Height - 1;
end;

Saludos

[[Gabo]]

Empezado por gluglu

No había intervenido hasta ahora porque suponía que Gabo tenía conocimiento de este hilo en el cual participé en su momento.

Entiendo que no hace falta ningún Panel ni nada. Basta con redimensionar el propio DBGrid para que vuelvan a aparecer la barra de Scroll vertical.


Código Delphi [-]procedure DataSource1DataChange(Sender: TObject; Field: TField);
begin
DBGrid1.Height := DBGrid1.Height + 1;
DBGrid1.Height := DBGrid1.Height - 1;
end;




Saludos

Sí, ya lo había leído, supongo que en ese momento no estaría muy lúcido de mente ya que pasé por alto la solución al problema... ¡Qué vergüenza!

Por lo que veo, la solución pasa por redibujar el DBGrid..

[[gluglu]]

gluglu comentó en un hilo que al parecer es un bug ...

Es que al leer esto por parte tuya dí por supuesto que habías leido el hilo y buscabas información adicional.

[Gabriel]

Pregunto ?

Si el DBGrid esta en Aling AlClient, también se redibuja ?

El panel al estar en AlTop, si que realmente se hace mas grande o mas pequeño.
Panel1.Heigth := Panel1.Heigth + 1
Panel1.Heigth := Panel1.Heigth - 1

Pero bueno, todo es cuestión de probar, que probar eso no es mucha faena.

Ya os contare

Saludos