ReconcileError Datacar

Delphi

09/07/2003

Olá pessoal,
Observando o sistema Datacar, vejo que em cada ClientDataset
no evento OnReconcileError quando você clica nele para
escrever o código ele vai para a procedure TDm.CommonReconcile ...
onde é possível unificar todas as mensagens de erro.
Como fazer isso??
Em meu sistema, cada ClientDataset cria uma nova procedure.

Alguém pode me ajudar?
Não sei se fui claro.
Obrigado
Gerson


Gerson

Gerson

Curtidas 0

Respostas

Cdaraujo

Cdaraujo

09/07/2003

Caro amigo.

Veja aí que eu fiz de acordo com suas informações:

Atenciosamente,

Daniel Araújo
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBClient, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ClientDataSet1: TClientDataSet;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure APPErro(Sender: TObject; E: Exception);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.APPErro(Sender: TObject; E: Exception);
begin
if E is EReconcileError then
ShowMessage(´Centralizando EReconcileError!!!´)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.OnException := APPErro;
end;

end.


GOSTEI 0
POSTAR