Fórum Botão dentro do DBGrid #343864

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  BUTTON: Integer;
  R: TRect;
  bcolor: TColor;
begin
  if Column.FieldName = ´CITY´ then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    BUTTON := 0;
    R:=Rect;
    InflateRect(R,-1,-1); //Diminue o tamanho do Botão
    DrawFrameControl(DBGrid1.Canvas.Handle,R,BUTTON, BUTTON or BUTTON);
    bcolor := DBGrid1.Canvas.Brush.Color; // guarda a cor de fundo original
    DBGrid1.Canvas.Brush.Color := clBtnFace; // muda a cor de fundo
    DrawText(DBGrid1.Canvas.Handle,´Alterar´,7,R,DT_VCENTER or DT_CENTER);
    DBGrid1.Canvas.Brush.Color := bcolor; // devolve a cor original
  end;
end;

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

begin

if DBGradeFunc.SelectedField.FieldName = ´MARCAR´ then
  begin
    fAlteraFolha.Label2.Caption:=vLabel2;//Variavel global mandando os dados para o form
    fAlteraFolha.L1.Caption:=vL1;//Variavel global mandando os dados para o form
    fAlteraFolha.L3.Caption:=vL3;//Variavel global mandando os dados para o form
    //--formata a variavel com ponto e virgula
    if vl5 <> ´´ then
    begin
       vl5:=FormatFloat(´#,0.00´,(dm.zspSomaFunc.FieldbyName(´valor_inss´).value));
       fAlteraFolha.L5.Caption:=vL5;//Variavel global mandando os dados para o form
    end else
    begin
       fAlteraFolha.L5.Caption:=´´;//Nao passa nada se a variavel estiver vazia
    end;
    //--formata a variavel com ponto e virgula
    if vl2 <> ´´ then
    begin
       vl2:=FormatFloat(´#,0.00´,(dm.zspSomaFunc.FieldbyName(´salario´).value));
       fAlteraFolha.L2.Caption:=vL2;//Variavel global mandando os dados para o form
    end else
    begin
       fAlteraFolha.L2.Caption:=´´;//Nao passa nada se a variavel estiver vazia
    end;
    //--formata a variavel com ponto e virgula
    if vl4 <> ´´ then
    begin
       vl4:=FormatFloat(´,0.00´,(dm.zspSomaFunc.FieldbyName(´aliquota_inss´).value));
       fAlteraFolha.L4.Caption:=vL4;//Variavel global mandando os dados para o form
    end else
    begin
       fAlteraFolha.L4.Caption:=´´;//Nao passa nada se a variavel estiver vazia
    end;
    fAlteraFolha.ShowModal;
    //dbGradeFunc.SetFocus;
    //DBGradeFunc.SelectedIndex := 0;
    DBGradeFunc.SelectedIndex:= -1;
    //dm.zspSomaFunc.GotoBookmark(Pointer(dbGradeFunc.SelectedRows.Items[i - 1]));
  end;
end;