childunit.pas

BusinessSkinForm教案与实例

unit ChildUnit;

interface

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

type
  TChildForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMainMenu1: TbsSkinMainMenu;
    ChildItem11: TMenuItem;
    ChildItem111: TMenuItem;
    ChildItem121: TMenuItem;
    ChildItem131: TMenuItem;
    ChildItem21: TMenuItem;
    ChildItem211: TMenuItem;
    ChildItem221: TMenuItem;
    ChildItem231: TMenuItem;
    ChildItem241: TMenuItem;
    ChildItem251: TMenuItem;
    ChildItem31: TMenuItem;
    ChildItem311: TMenuItem;
    ChildItem321: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChildForm: TChildForm;

implementation
   Uses MainUnit;
{$R *.DFM}

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.