mas da o seguinte erro:
unsafistied foward or external declaration: 'TfrmMonitorar.pintar'
2008/6/9 Joao Morais <[EMAIL PROTECTED]>:
> felipe govoni wrote:
> > tenho um form chamado frmmonitorar
> > nele eu tenho um dbgrid q eu preciso q determinadas linhas
> > troquem de cor.
> >
> > coloquei o seguinte codigo no onclick do botao:
> >
> > dmGeral.qryBaixa.Close;
> > dmGeral.qryBaixa.Parameters.ParamByName('re_tecnico').Value := re;
> > dmGeral.qryBaixa.OnCalcFields := pintar;
> > dmGeral.qryBaixa.Open;
> >
> > no mesmo form criei a seguinte procedure:
> >
> > procedure Pintar(Dataset: TDataset);
> > begin
> > ...
> > end;
>
> Aí é que está o erro. altere a declaração para isto aqui:
>
> procedure TSeuForm.Pintar(Dataset: TDataset);
> begin
> ...
> end;
>
> e dentro do seu form, na área private, declare isso aqui:
>
> private
> procedure Pintar(Dataset: TDataset);
> end;
>
> É isto.
>
> --
> Joao Morais
>
> > a query esta num datamodule chamado dmgeral.
> >
> >
> > nao sei onde declarar isso
> >
> > TdmGeral = class(TDataModule)
> >
> > dentro da classe dmgeral pois esta tudo no frmmonitorar
> > apenas a query esta no datamodule.
>
>
--
Felipe Govoni
---------------------
Programador
Fone 8472-8718
[As partes desta mensagem que não continham texto foram removidas]
