comentario o mensaje al pasar sobre una celda de un DBGrid

[micky mouse]

ok coso, tenias razón.
ahora toy buscando la manera de cambiar el valor conforme valla viajando el mouse por las distintas filas y columnas. es decir, no necesarimente la seleccionada por la tabla. pero no encuentro la forma. tienes alguna idea?

[micky mouse]

me explico mejor. toy intentando que al bajar o subir el mouse por las distintas filas tome el valor de la celda y lo muestre en el mensaje.

[[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.