problema cambiar formato de fila en dbGrid

[aglopez]

Prueba con este código en los eventos OnEnter y OnExit a ver si es lo que
buscabas.

procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
  DBGrid1.Options:=DBGrid1.Options-[dgrowselect,dgAlwaysShowSelection];
end;

procedure TForm1.DBGrid1Exit(Sender: TObject);
begin
  DBGrid1.Options:=DBGrid1.Options+[dgrowselect,dgAlwaysShowSelection];
end;

[VRO]

Gracias sólo con poner la instrucción en el método exit ya funciona, ahora voy a investigar para en vez que la mantega seleccionado en color azul lo cambie a gris.

Muchísimas gracias , amigo .

[VRO]

POr si ha alguien le interesa pongo la solución, para ello utilizo una función tan comentada como es:

Código Delphi [-]
if (dbgrid.Options=dbgrid.Options+[dgAlwaysShowSelection]) and (gdselected in state) then
 begin
     dbgrid.Canvas.Brush.Color:=clMenu;
     dbgrid.Canvas.Font.color:=clInfotext;
 end;

dbgrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);

La condición expuesta puede ser redundante ya que pongo que el dbgrid continue se muestre selecionada y pongo también (gdSelected in state), es decir, que es estado sea selecionado, pues bien explico porque si no pongo esto último sería en caso de que exista un campo selecionado coloreo todo el dbgrid y poniendo esa consición más me colorea solo el campo selecionado en el dbgrid, que es lo que yo quería.

Espero que lo hayais entendido y que le sirva a alguien de ayuda.

Chao

[aglopez]

Si te funciona solo con el evento OnExit, pero si no pones el OnEnter
al entrar en el DBGrid no podrás modicar datos. Si no necesitas modificar, entonces no te hace falta.

Saludos.