FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
ScrollBars en TDBGrid
Hola
Tengo un TDBGrid al que quiero ocultar las ScrollBars. Para Hacerlo uso esto: TStringGrid(DBGrid1).ScrollBars:=ssNone; ...Pero la barra vertical me aparece, aunque solo haya dos items y sobre espacio (o sea que no haria falta). Saludos ! |
#2
|
||||
|
||||
Cita:
Una asignación cómo esta puede arrojar resultados impredecibles, pues está sobreescribiendo espacios de memoria que corresponden probablemente a otras propiedades (o incluso otras variables y hasta no asignados), con el consecuente riesgo de generar Violacciones de Acceso a Memoria o cambiar el valor de otras propiedades "a huevo". (si no a ocurrido, es porque corres con suerte, pero como sigas con está práctica... ya veras!) Si queres aplicar un molde a una clase... te aconsejo que investigues su herencia, o bien que siempre apliques un "molde seguro" (safe typecast) con el operador AS. De esa manera, si la clase no "es" lo que vos pretendes que sea, se eleva una excepción, evitando algun desastre. Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
|||
|
|||
Fijáte si te sirve:
Código:
... type TSinScrollDBGrid = class(TDBGrid) protected procedure Paint; override; end; implementation procedure TSinScrollDBGrid.Paint; begin SetScrollRange(Self.Handle, SB_VERT, 0, 0, False); SetScrollRange(Self.Handle, SB_HORZ, 0, 0, False); inherited Paint; end; ...
__________________
Suerte .: Gydba :. |
#4
|
|||
|
|||
Gracias por la info
SOY UN PELIGRO!! jeje "TSTringGrid(DBGrid1).ScrollBars:=ssNone" lo saque de la pagina de Trucomania ( http://www.q3.nu/trucomania/ftesp.html ) Nº de truco:334 Probare lo que me habeis dicho, gracias otra vez Saludos!! |
#5
|
||||
|
||||
pues es peligroso. En el mismo hilo, Ivn recomienda el uso de:
ShowScrollBar(DBGRID1.Handle, SB_VERT, False) ; - remove ShowScrollBar(DBGRID1.Handle, SB_VERT, True) ; - add Que me parece mucho mas limpio, y le veo mas probabilidades de funcionar en distintas versiones de Delphi y de windows. Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#6
|
|||
|
|||
Gracias de nuevo
Informare a Radikal Saludos!! |
|
|
|