B
Beast
Unregistered / Unconfirmed
GUEST, unregistred user!
我从TPanel继承了一个类，发现想override它的Destory的时候出问题
了，说Base Calss里面没有Destory方法！！郁闷到了极点，看看下面
的代码
unit uTest;
interface
Uses
………………
Type
TAPanel=Class(TPanel)
public
constructor Create(AOwner: TComponent); override;
Destructor Destory();//*******注意这里，不能有“override;”郁闷！！！
end;
implementation
{ TAPanel }
constructor TAPanel.Create(AOwner: TComponent);
begin
inherited;
end;
destructor TAPanel.Destory;
begin
inherited;
end;
end.
了，说Base Calss里面没有Destory方法！！郁闷到了极点，看看下面
的代码
unit uTest;
interface
Uses
………………
Type
TAPanel=Class(TPanel)
public
constructor Create(AOwner: TComponent); override;
Destructor Destory();//*******注意这里，不能有“override;”郁闷！！！
end;
implementation
{ TAPanel }
constructor TAPanel.Create(AOwner: TComponent);
begin
inherited;
end;
destructor TAPanel.Destory;
begin
inherited;
end;
end.