Chamar evento através de outro [condicional]

[Gabriel Cabral]

Oi gente...

assim... tenho o evento OnDataChange de um datasource

nele, deve ser executada uma rotina se tal botão for clicado..

mas como eu faço isso??

eu fiz assim...

procedure Tdm.dtsCadProDataChange(Sender: TObject; Field: TField);
begin
  if frmCadPro.btnGravarClick(Sender) = True then
  begin
    if Field <> nil then
    begin
      if AnsiSameText(Field.FieldName, 'PRODES') then
      begin
        ShowMessage('      Gravou lá no ESTAPROA!!!');
        dm.ESTAPROA.Edit;

        dm.ESTAPROAPROCOD.Value := frmCadPro.txtCadPro_CodPro.Text;
        dm.ESTAPROAPRODES.Value := frmCadPro.txtCadPro_Desc.Text;
        dm.ESTAPROAPROUND.Value := frmCadPro.txtCadPro_UndVen.Text;
        dm.ESTAPROAPROPRE.Value := StrToFloatDef(frmCadPro.txtCadPro_PreVen.Text,0);
        dm.ESTAPROAPROPOF.Value := StrToFloatDef(frmCadPro.txtCadPro_PreOfe.Text,0);
        dm.ESTAPROAPROIOF.Value := StrToDateTimeDef(frmCadPro.txtCadPro_DataIniOfe.Text,0);
        dm.ESTAPROAPRODOF.Value := StrToDateTimeDef(frmCadPro.txtCadPro_DataFinOfe.Text,0);

        dm.ESTAPROA.Post;
      end;
    end;
  end;
end;

Mas deu o erro: [DCC Error] U_dm.pas(452): E2008 Incompatible types na linha do If

Como posso fazer???

Obrigado

[Jhonas]

if frmCadPro.btnGravarClick(Sender) = True then

Este comando esta errado .. tire ele

outro erro:

procedure Tdm.dtsCadProDataChange(Sender: TObject; Field: TField);

se voce está no evento OnChange de um campo , como voce quer testar se o botão Gravar foi clicado ?

OBS: Este código deveria estar somente no botão Gravar

abraço

[Gabriel Cabral]

A questão é que eu preciso verificar se um campo foi alterado

por isso estou usando o OnDataChange do datasource...

tem alguma outra forma de fazer essa verificação???

[Jhonas]

A questão é que eu preciso verificar se um campo foi alterado

por isso estou usando o OnDataChange do datasource...

tem alguma outra forma de fazer essa verificação???

Tem... aprenda a usar ClientDataSet.Delta

exemplo:

http://scriptbrasil.com.br/forum/index.php...st&p=556572

abraço