Fórum Botão Dentro do DBGrid para consulta de Produtos #427798

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  BUTTON: Integer;
  R: TRect;
  SCapt : string;

begin

if Column.FieldName = 'Codigo' then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    BUTTON := 0;
    R:=Rect;
    SCapt := '...';// caption do botão
    InflateRect(R,-24,-2); //Diminue o tamanho do Botão
    DrawFrameControl(DBGrid1.Canvas.Handle,R,BUTTON, BUTTON or BUTTON);
    with DBGrid1.Canvas do
    begin
      Brush.Style := bsClear;
      Font.Color := clBtnText;// cor normal do botão
      TextRect(Rect, (Rect.Left + Rect.Right - TextWidth(SCapt)) div 2, (Rect.Top + Rect.Bottom - TextHeight(SCapt)) div 2, SCapt);//posicionamentodo botão
    end; 
  end;


end;

procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
 if DBGrid1.SelectedField.FieldName = 'Codigo' then 
  begin 
   form2.show; 
   form2.Edit1.text:=vdadosdbgrid;//Variavel global mandando os dados para o form2 
  end; 
end;