bah to meio perdido fiz o que vc falou joao mas agora da o seguinte erro inconpatible type: 'method pointer and regular procedure'
2008/6/9 Joao Morais <[EMAIL PROTECTED]>: > felipe govoni wrote: > > blz mas agora da o seguinte erro: > > unsatisfied foward or external declaration Tfrmmonitorar.pintar > > É para alterar o cabeçalho do seu método Pintar, não é para declarar > outro cabeçalho sem implementação. > > - declare Pintar dentro de uma classe (ou seja, um método, e não uma > procedure); > - coloque o parâmetro Dataset, como eu citei anteriormente. A declaração > deste método deve ser igual ao que o evento OnCalcFields espera; > - associe este método ao evento OnCalcFields sem colocar o abre-fecha > parênteses. > > -- > Joao Morais > > > 2008/6/9 Joao Morais <[EMAIL PROTECTED] <post%40joaomorais.com.br> > >: > > > >> 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 > >> > >> > > > > > > > > > -- Felipe Govoni --------------------- Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
