Delphi的override和virtual方法

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

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

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

unit ufraModuleBase;

interface

uses
...
TfraModuleBase = class(TFrame)
...
    procedure GetData; virtual;
// 创建与销毁
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
...
  end;
...
//--------------------------
constructor TfraModuleBase.Create(AOwner: TComponent);
begin
  inherited;
...
  GetData;
end;
//------------------------------
procedure TfraModuleBase.GetData;
begin

end;