DBGrid con Button

[[Chris]]

Si tienes el botón configurado como un tipo de "InplaceEdit", ten en cuenta que cuando activas la opción dgRowSelect el TDBGrid ignora las opciones de InplaceEdit. Es algo normal según tengo entendido.

Lamentablemente, tendrás que buscar otro método para colocar el botón. Talvez te sirva pintar uno virtual en el evento OnDrawColumnCell.

Saludos,
Chris

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