cformbase.pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· PAS 代码 · 共 34 行

{-----------------------------------------------------------------------------
 Unit Name: CFormBase
 Author:    hubdog(陈省)
 Purpose:   窗体的基类
 BeginDate: 2002-6-28
 History:
            发现不能使用默认窗体作为继承窗体的基类，否则继承会出问题
-----------------------------------------------------------------------------}


unit CFormBase;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, Forms, CFrameMenu,
  IWControl, IWCompLabel, IWExtCtrls, jpeg;

type
  TformBase = class(TIWAppForm)
    FrameMenu1: TFrameMenu;
    iwbTitle: TIWLabel;
    IWImage1: TIWImage;
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

end.