这要如何处理，我都要疯了？ SOS SOS SOS!

Question

修改为：procedure TForm1.Handler (Sender: Tobject; E: Exception);
不过不能确定，最好有完整的源码！

Answer 1

你声明
的地方错了～～时不时写到了Form的private或者publich里面了？？那里面写的过程或者函数他们的父类是TForm阿～～所以你的在写具体的过程或者是函数的时候需要声明这个过程或者是函数是属于那一个父类的～～所以需要procedure TForm1.Handler (Sender: Tobject; E: Exception这样写～～呵呵～～我是这样认为的～～可能理解错误～～请大家指教～～ 

Answer 2

看你的错误信息,想tikkypeng(千两狂死郎)说的该是对的.

Answer 3

您试在private上面声明 procedure Handler (Sender: Tobject; E: Exception);
然后在{$R  *.dfm}下面声明procedure Tform1.Handler (Sender: Tobject; E: Exception);其中form1您定义的表单名.

Answer 4

是不是想实现以下功能呀?unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  ME = class(Exception);  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  m: ME;
begin
  m := ME.Create('Abc');
  Handler(self, m);
  m.Free;
end;end.//-------------------------------------------unit Unit2;interfaceuses sysutils, Dialogs;procedure Handler(Sender: Tobject; E: Exception);implementationprocedure Handler(Sender: Tobject; E: Exception);
begin
  ShowMessage(Sender.ClassName + ':' + e.Message);
end;end.