Ignorer ALLE errors

du kan jo køre en
try
except
end;
hver gang du kalder noget

Ellers kan du jo prøve med onappilcation error

prøv noget alla det her :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure AppException(Sender: TObject; E: Exception);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  ShowMessage('Der er sket en fejl');
end;

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

end.


Jens B

form Create skal selvfølgelig se således ud :

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


Jens B

borrisholt> Han vil netop ikke se fejlen, så skulle "AppException" i stedet ikke så sådan her ud?
<SNIP>
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  //ShowMessage('Der er sket en fejl, men jeg siger det ikke til nogen');
end;
</SNIP>

;-)

:-)

Jens B

JU-HUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU !

Jens B