comentario o mensaje al pasar sobre una celda de un DBGrid

[[gluglu]]

Echale un vistazo a esto

Como bien indicas anteriormente, aunque moviendo el mouse por encima del Grid te dá el valor, pero te dá el valor de la FILA que en ese momente se encuentre seleccionada, a pesar de que puedas obtener los diferentes valores de cada columna, pero de la fila SELECCIONADA.

Saludos,

[[coso]]

Por fin....

Código Delphi [-]

type THKDBGrid = class (TDBGrid);

type THKDataLink = class (TDataLink);

Código Delphi [-]
procedure T_main.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
        t : TGridCoord;
begin
        t := DBGrid1.MouseCoord(x,y);

        if (t.x < 1) or (t.y <1) or (t.x > DBGrid1.Columns.Count) then exit;

        StaticText1.Left := X + 20;
        StaticText1.Top  := Y;

        THKDataLink(THKDBGrid(DBGrid1).DataLink).SetActiveRecord(t.y-1);       
        StaticText1.Caption := DBGrid1.Fields[t.x-1].AsString;
end;

Gracias gluglu por el enlace (desconocia lo de como acceder a propiedades y funciones protegidas)

[micky mouse]

Holas michachos

les agradesco su ayuda, gluglu pusites el toque en este tema, y coso te agradesco este ultimo esfuerzo encontrando el codigo correcto que necesitaba, yo no puede llegar, supongo que me falta aprender un poco mas de teoria sobre propiedades y como manejarlas. si pueden enviarme algun enlace interesante al respecto se los agradeceria.

GRACIAS TOTALES.

Código Delphi [-]
type THKDBGrid = class (TDBGrid);
type THKDataLink = class (TDataLink);






Código Delphi [-]
procedure TFrm_Contabilidad_Cuentas.g_MovimientoMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
t : TGridCoord;
p : string;
begin
if (X=0)or(Y=0) then
m_Comentario.Visible:=false;
t := g_Movimiento.MouseCoord(X,Y);
if (t.x < 0) or (t.y < 0) or (t.x > g_Movimiento.Columns.Count) then begin
m_Comentario.Visible:=false;
exit;
end;
if Frm_Contabilidad_Cuentas.Width>X+197 then begin
m_Comentario.Left := X+5;
m_Comentario.Top := Y+182;
end else begin
m_Comentario.Left := X+5-185;
m_Comentario.Top := Y+182;
end;
if t.X>1 then begin
if t.Y<=0 then exit;
THKDataLink(THKDBGrid(g_Movimiento).DataLink).SetActiveRecord(t.y-1);
p := g_Movimiento.Fields[t.x-1].AsString;
if p<>''then begin
m_Comentario.Visible:=true;
m_Comentario.Lines.Text:=p;
end else
m_Comentario.Visible:=false;
end;
end;





este codigo es producto de sus aportes, hace que aparesca un memo como si fuera un comentario a la altura del puntero del mouse como si fuera un comentario en excel. esté desaparece si la celda esta vacia o si sale del ambito del grid. mi modesto aporte.

[[coso]]

Hay bastante ayuda sobre las funciones protegidas / no documentadas en http://www.freepascal.org

de nada para eso estamos .

[micky mouse]

coso no me habia percatado de este detalle, es una falla en el codigo, parece que algo se queda "enganchado", recien me he percatado de esto pero cuando uno intenta ingresar al grid no siempre ingresa en la celda sobre la que estamos posados. algun a idea de lo que sucede? prueba con una grid da mas de dos o tres filas.

[[coso]]

ni idea micky mouse. A mi me lo hace todo seguido...quiza sea por las líneas de separación entre celdas.

[roman]

Empezado por micky mouse

cuando uno intenta ingresar al grid no siempre ingresa en la celda sobre la que estamos posados.

Claro. El problema es que cambias de registro activo aunque la selección azul permanezca en el lugar original. Lo único que tienes que hacer es guardar previamente la posición actual y restaurarla luego de poner el hint:

Código Delphi [-]
SaveActiveRecord := THKDBGrid(g_Movimiento).DataLink.ActiveRecord;
THKDBGrid(g_Movimiento).DataLink.ActiveRecord := t.y - 1;
p := g_Movimiento.Fields[t.x-1].AsString;
THKDBGrid(g_Movimiento).DataLink.ActiveRecord := SaveActiveRecord;

Nota, de pasada, que no es necesario "desproteger" al DataLink, ya que ActiveRecord es una propiedad pública.

// Saludos

[[coso]]

no no, si lo de poner el campo sobre el q esta el mouse y no el seleccionado ya estaba...aunque de esa manera extraña eso si. Era otra cosa me parece ahora.

Saludos.