Les messages d"erreur

Question

Bonjour,
Je demande est ce que c'est possible de personnaliser les messages d'erreur qui sont gérés automatiquement par Delphi telsque les messages d'erreur du moteur de base de données DBE suite à une erreur d'intégrité référetiel par exemple.
Je vous informer qu'en laisant le help a ce propos il est recommandé d'utiliser l'utilitaire Workshop qui n'est pas installé avec Delphi 5 version entreprise

vergil3a · Answer

bonjour :
 Tu peux personaliser Tous les messages produits par delphi Simplement Remplacer
le gestionner d'erreur par default avec un procedure qui fait cette Tache mais il n'est pas Conseiller  alors Faite Attention

Code: 1 boutton 
//----------------------------> Copie ICI
  private
    { Déclarations privées }


 procedure  Erreur_handle(Sender: TObject; E: Exception);


  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;


implementation




{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  raise EDivByZero.Create('Exception');


end;


procedure TForm1.Erreur_handle(Sender: TObject; E: Exception);
begin
if E is EDivByZero Then
MessageBox(0,'EDivByZero','Erreur :',MB_OK +MB_ICONERROR )
Else
MessageBox(0,'Autre Erreur','Erreur :',MB_OK +MB_ICONERROR )




end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:=Erreur_handle;
end;


end.

Les messages d"erreur

1 réponse

Votre réponse

Discussions similaires