suncode

  博客园 :: 首页 :: 新随笔 :: :: :: 管理 ::

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”

posted on 2011-02-23 16:59  suncode  阅读(1187)  评论(0)    收藏  举报