主题:如何将表单中控件的事件相应函数重写?
我建立一个表单 tForm1=class(tFORM)
该表单中加入几个按钮,
但我需要将这个表单类派生一个类 TssForm=Class(TForm1)
这个派生类的将重写原来按钮的相应函数,但我每次调用的结果都是响应的原来的基类(TForm)的响应
TFORM1 中的代码:
TYPE
TFORM1=class(TForm)
Button1: TButton;
Button2: TButton;
....
procedure Button2Click(Sender: TObject);virtual;
...
procedure TForm1.Button2Click(Sender: TObject); ///Button2Click
begin
MessageBox(0,PCHAR('Excel数据库连接失败!'),'基础类输出',mb_ok);
end;
派生类的代码:
TYPE
TssForm1=class(TForm1)
public
constructor Create(Conn:TADOConnection;ExcelFile:String); overload; //重载一个构造函数
procedure Button2Click(Sender: TObject); Override;
构造函数能运行正常,但是每次在表单上点击按钮时候都是不是派生类的相应方式。不知道如何处理?????
该表单中加入几个按钮,
但我需要将这个表单类派生一个类 TssForm=Class(TForm1)
这个派生类的将重写原来按钮的相应函数,但我每次调用的结果都是响应的原来的基类(TForm)的响应
TFORM1 中的代码:
TYPE
TFORM1=class(TForm)
Button1: TButton;
Button2: TButton;
....
procedure Button2Click(Sender: TObject);virtual;
...
procedure TForm1.Button2Click(Sender: TObject); ///Button2Click
begin
MessageBox(0,PCHAR('Excel数据库连接失败!'),'基础类输出',mb_ok);
end;
派生类的代码:
TYPE
TssForm1=class(TForm1)
public
constructor Create(Conn:TADOConnection;ExcelFile:String); overload; //重载一个构造函数
procedure Button2Click(Sender: TObject); Override;
构造函数能运行正常,但是每次在表单上点击按钮时候都是不是派生类的相应方式。不知道如何处理?????