Error al motrar el estado en Statusbar

[feliz-58]

estoy intentando mostrar los errores del programa en un statusbar usando este codigo: Application.OnException:= DisplayException;

Pero me sale este error:
[Error] Unit1.pas(48): Undeclared identifier: 'DisplayException'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Sabeb como resolverlo?

Gracias

[ecfisa]

Hola feliz-58.

El error es claro, no está declarado el procedimiento DisplayException.

Un ejemplo muy simplificado:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;
    ...
    procedure FormCreate(Sender: TObject);
  private
    procedure DisplayException(Sender: TObject; E: Exception);
  public
  end;
...

implementation

procedure TForm1.DisplayException(Sender: TObject; E: Exception);
begin
  // Tratar la excepción
  // ...
  StatusBar1.Panels[0].Text := E.Message;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := DisplayException
end;

...

Saludos.

[cloayza]

Empezado por ecfisa

Hola feliz-58.
El error es claro, no está declarado el procedimiento DisplayException.
Saludos.

Next....