Delphi的override和virtual方法

我们在基类单元中声明了GetData一个方法并在Create事件中调用GetData方法.

注意此时GetData在声明时,使用的是virtual方法,说明它是不再继承TFrame中的同名过程,而是新增的方法

 另外Create和Destroy事件使用的是override方法,说明它是继承的父类同名方法.

unit ufraModuleBase;interfaceuses
...
TfraModuleBase = class(TFrame)
...procedure GetData; virtual;
// 创建与销毁constructor Create(AOwner: TComponent); override;destructor Destroy; override;
...end;
...
//--------------------------
constructor TfraModuleBase.Create(AOwner: TComponent);
begininherited;
...GetData;
end;
//------------------------------
procedure TfraModuleBase.GetData;
beginend;