Ver Mensaje Individual
  #8  
Antiguo 30-05-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
mira...un poco mas elaborado...ahora te lo pongo...

Código Delphi [-]
var
        t : TGridCoord;
        s : string;
begin
        t := DBGrid1.MouseCoord(X,Y);

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

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

        StaticText1.Caption := 'Esta es la columna ' + inttostr(t.X) + ' de la linea ' + inttostr(t.y);
        StaticText1.Caption := StaticText1.Caption +  ' el campo es ' + DBGrid1.Columns[t.x-1].FieldName;
        StaticText1.Caption := StaticText1.Caption +  ' y su valor es ' + DBGrid1.Columns[t.x-1].Field.Asstring;

        StaticText1.Color := (random($0D0D0D) + $FDFDFD) mod $FDFDFD;
end;

como ves, uso un statictext exterior...puedes usar tb una paintbox para pintar en ella mediante el canvas, q puede quedar mas bonito y hacer mas efectos...es cuestion de imaginacion...

venga, un saludo.

Última edición por coso fecha: 30-05-2008 a las 15:50:32.
Responder Con Cita