Hola forofos
Estoy haciendo un programa, en Delphi, claro. Lleva una agenda. Para mostrar los datos uso un DbGrid, bueno, un NewDBGrid (componente creado por mi a partir de un DbGrid).
CÓDIGO DEL TNEWDBGRID
//
unit NewDbGrid;
interface
uses
WinTypes, WinProcs, Classes, DBGrids;
type
TNewDbGrid = class(TDBGrid)
private
{ Private declarations }
protected
{ Protected declarations }
Procedure Paint; override;
public
{ Public declarations }
published
{ Published declarations }
Property OnMouseUp;
Property OnMouseDown;
end;
procedure Register;
implementation
Procedure TNewDbGrid.Paint;
begin
SetScrollRange(Self.Handle, SB_BOTH, 0, 0, False);
inherited Paint;
end;
procedure Register;
begin
RegisterComponents('Lunatiko', [TNewDbGrid]);
end;
end.
//
Simplemente le añado los eventos OnMouseUp y OnMouseDown (eso funciona) y hago que no aparezcan las barras de desplazamiento cuando no hacen falta (también funciona).
Lo que pasa es que tengo un problema, y no se por que pasa.
Tengo ese NewDBGrid dentro de un TScrollBox. Ese NewDBGrid lo redimensiono según el ancho de las columnas (se pueden redimensionar) y la cantidad de registros. Si el NewDbGrid excede del tamaño del ScrollBox, las baras del ScrollBox aparecen (hago esto porque las barras del DBgrid no son lo que necesito, ya que si las mueves el registro de la tabla también se mueve, con las barras del ScrollBox no).
El problema es que cuando hago click en la penúlima linea, al hacer click en la siguiente pasa una cosa muy rara. El primer registro que aparece en el NewDBGrid desaparece, dejando abajo un espacio en blanco.
¿Alguien sabe por qué pasa eso?
Uso Delphi 3 Standar en WinXP, y me estoy volviendo loco (por suerte el resto del programa funciona). Bueno, en realidad he resuelto parte del problema, pero eso me da otros problemas. Lo que hago es que en el evento OnEnter del NewDBGrid hago que otro componente tome el foco (Edit1.SetFocus), pero entonces las columnas no se redimensionan, y para que el registro se quede seleccionado, tengo que hacer otra cosilla que produce un parpadeo en el NewBDGrid (en el evento OnMouseDown hago "Tabla.RecNo:=y div 18", ya que las filas tienen 18 pixeles de alto)
Gracias por adelantado