我现在有一个问题,我现在引用一个控件,但它一会会弹出错误信息。我能否阻止消息弹出?请大家帮助。 我现在有一个问题,我现在引用一个控件,但它一会会弹出错误信息。我能否阻止消息弹出?请大家帮助。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 try ... //将那些可能会抛出异常的代码写在这里...excepy exit;end; 另外还可以放入一个ApplicationEvents1控件,在ApplicationEvents1Exception事件下写入你处理异常的代码, 除 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. 求助:啟動時窗體在最底層,定期激活彈出同時讓memo擁有焦點! 高分送上->编辑.exe文件,恢复被病毒感染的文件。 怎么知道在DBGrid中选中的记录是第几个 用TServerSocket和TClientSocket 控件怎么记录每个连接的客户端啊,用这个Socket对象对客户端进行操作。 程序员之"歌" 如何用http1.1的可持续连接调用asp网页? 如何保证数据库中数据的一致性? 一个程序的运行如何与拨号(adsl)关联起来 请指教,怎样在页面做个字体链接邮件地址和网址? 我在客户表中有一个国家字段 如何利用D关闭系统进程 成都招Delphi.(2K-3K+)
... //将那些可能会抛出异常的代码写在这里...
excepy
exit;
end;
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.