我现在有一个问题,我现在引用一个控件,但它一会会弹出错误信息。我能否阻止消息弹出?请大家帮助。

解决方案 »

  1.   

    try
      ...  //将那些可能会抛出异常的代码写在这里...
    excepy
      exit;
    end;
      

  2.   

    另外还可以放入一个ApplicationEvents1控件,在ApplicationEvents1Exception事件下写入你处理异常的代码,
      

  3.   

    除 try except end 外,还可以嫁接 Application.OnException 事件,如下:
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)    
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure HandleException(Sender: TObject; E: Exception);
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
    begin
      Application.OnException:=HandleException;
    end;procedure TForm1.HandleException(Sender: TObject; E: Exception);
    begin
      //处理代码为空,可以忽略掉程序中的错误...
    end;end.