如何拦ACTIVEX控件的出错信息(100分)

L

liguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-28

• #1

请问如何拦ACTIVEX控件的出错信息。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-28

• #2

好象只能用try ... except...end;

 

C

churchill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-28

• #3

支持cytown的说法.

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-28

• #4

呵呵，怪呀。可以自己写错误处理程序，替换application.onexception

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-29

• #5

用try ... except...end,如果错误信息不能用前面的方法捕获，可惜如下代码实现


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

end;

procedure TForm1.AppException(Sender: TObject
E: Exception);

begin
showmessage('关键字不能重复');
abort;
end;

procedure AppException(Sender: TObject
E: Exception);
必须定义载创体类中

 

L

liguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-14

• #6

接受答案了.