delphi property TabOrder does not exist
unit uModuleFrame;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TModuleFrame = class(TFrame)
public
constructor Create(AOwner: TComponent); virtual;
function BeforeLoad: boolean; virtual; abstract;
function BeforeShow: boolean; virtual; abstract;
function BeforeHide: boolean; virtual; abstract;
function BeforeUnload: boolean; virtual; abstract;
function BeforeLanguageChange: boolean; virtual; abstract;
function AfterLanguageChange: boolean; virtual; abstract;
end;
TModuleClass = class of TModuleFrame;
implementation
{$R *.DFM}
{ TModuleFrame }
constructor TModuleFrame.Create(AOwner: TComponent);
begin
inherited;
end;
end.
通过Moduleframe派生出不同的frame并显示在form上是出现如题所示问题,原因是在Delphi 7 下的 TFrame 的继承不像我们在 MFC 中的操作一样直接改代码就可以了,而是要通过 IDE 来进行操作。
解决办法:
打开对应的*.dfm文件,第一行 “object Frame1: TFrame1 ” 改为“inherited Frame1: TFrame1”

浙公网安备 33010602011771号