felipe govoni wrote: > procedure pintar(Sender: TObject); > begin > //codigo pra pintar > end; > > e no evento on click > > dmGeral.qryBaixa.close; > dmGeral.qryBaixa.OnCalcFields := pintar(); > dmGeral.qryBaixa.open; > > ele da o seguinte erro: not enough actual parameters, mas qual parametro > falta colocar?
declare: procedure Pintar(Dataset: TDataset); ... e retire os parênteses da procedure ao fazer a associação: ... dmGeral.qryBaixa.OnCalcFields := Pintar; ... Joao Morais
