Seleccionar una fila en un DBGRID

[erickperez6]

Saludos,

Estaba buscando en el historico algun hilo parecido, y los encontre, pero las respuesta que estaban alli no es la que busco, a ver si me explico bien.

Hago una busqueda en una tabla con un Locate, cuando el registro es encontrado el cursor se posiciona en el registro encontrado en el dbgrid, hasta aqui todo perfecto, pero yo quiero mediante codigo, cuando el cursor se posicione en este registro o fila, tambien la seleccione por completo, ya tengo la opcion dgRowSelect habilitada en el dbgrid, y lo que deseo es hacer el efecto de cuando uno presiona un click sobre la fila se marque, o se sobree por completo este registro, el locate unicamente me posiciona el cursor, pero no me lo seleciona la fila.

Gracias !

[marcoszorrilla]

Prueba con este código:

Código Delphi [-]

var
  Form1: TForm1;
  
        type
  TCustomDBGridCracker = class(TCustomDBGrid);   {Le poneis el nombre que querais}
implementation

{$R *.DFM}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with TCustomDBGridCracker(Sender) do begin
    if DataLink.ActiveRecord = Row - 1 then begin
      Canvas.Brush.Color := clHighLight;
      Canvas.Pen.Color := clHighLightText;
    end;

    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Un Saludo.