Herdar TclientDataset

Question

Ol� Pessoal, Eu gostaria que meus clientdatasets realizassem o seguinte procedimento no evento afterpost: (Datset as Tclientdataset).applyupdates(0); (Datset as Tclientdataset).refresh; Eu tentei cria...

Marco Salles · Answer

n�o daria no evento afterpost dos ClientDataSet voce digitar...

TClientDataSet(sender).applyupdates(0); TClientDataSet(sender).refresh;

depois � so ligar os manipuladores do evento afterpost dos outros clientDataSet a este

Vitor Alcantara · Answer

Se n�o existir mais nenhum evento particular no seu componente dataset voc� pode criar um la�o pra fazer isso pra voc�.

Primeiro voc� cria a Procedure com os eventos.

  private
    procedure ProcAfterPost(Sender:TdataSet);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCad: TFrmCad;

implementation

procedure TFrmCad.ProcAfterPost(Sender:TdataSet);
begin
  TClientDataSet(Sender).applyupdates(0);
  TClientDataSet(Sender).refresh;
end;

dai voc� pode colocar isso no OnCreate do seu DataModule/Form

var
  x:integer;
begin
  for x := 0 to ComponentCount - 1 do//La�o para pecorrer todos os components do form.
  if Components[x] is TClientDataSet then//Verifica se o component � um TClientDataSet
  TClientDataSet(Components[x]).AfterPost := ProcAfterPost;//Se for ele atribui o procedimento ProcAfterPos ao evento AfterPost do mesmo
end;

F�rum Herdar TclientDataset #343293