DBGrid con Button

[gsilvei]

Hola,
tengo el botón criado en el evento OnDrawColumnCell:

Código Delphi [-]
  
procedure TFormPrincipal.Grid_propostaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var 
  BUTTON: Integer; 
  R: TRect; 
  SCapt : string;

begin
if Column.FieldName = 'P_OBS_INATIVO' then
  begin 
    Grid_proposta.Canvas.FillRect(Rect);
    BUTTON := 0; 
    R:=Rect; 
    SCapt := 'Ren.';
    InflateRect(R,-2,0); 
    DrawFrameControl(Grid_proposta.Canvas.Handle,R,BUTTON, BUTTON or BUTTON); 
    with Grid_proposta.Canvas do
    begin 
      Brush.Style := bsClear; 
      Font.Color := clBtnText; 
      TextRect(Rect, (Rect.Left + Rect.Right - TextWidth(SCapt)) div 2, (Rect.Top + Rect.Bottom - TextHeight(SCapt)) div 2, SCapt); 
    end; 
  end;
end;

Saludos

[[Chris]]

La imagen del botón que dibujas con la función DrawFrameControl aparece aún cuando activas la propiedad dgRowSelect? Cuál es en específico el problema que tienes?

[ecfisa]

Hola gsilvei.

Por favor no dupliques los temas, lee la guía de estilo , en especial el punto 6 .

Combiné ambos mensajes (el del foro Varios y el de BBDD) en el foro Varios.

Saludos y gracias por tu colaboración.

Edito: Veo que Chris ya había advertido la situación al estar redactando este mensaje.