childfrm.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 29 行

unit ChildFrm;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  Menus;

type
  TChildForm = class(TForm)
    mmChild: TMainMenu;
    mmiChildFormA: TMenuItem;
    mmiChildFormB: TMenuItem;
    mmiChildFormC: TMenuItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChildForm: TChildForm;

implementation

{$R *.DFM}

end.