parentform.pas.~3~

《Delphi 2005程序设计及其应用开发》源代码

unit ParentForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,aboutdlg, Menus, System.ComponentModel;

type
  TMDIParent = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    N2: TMenuItem;
    Open1: TMenuItem;
    New1: TMenuItem;
    Window1: TMenuItem;
    ArrangeAll1: TMenuItem;
    Cascade1: TMenuItem;
    ile1: TMenuItem;
    procedure New1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure CloseAll1Click(Sender: TObject);
    procedure Tile1Click(Sender: TObject);
    procedure Cascade1Click(Sender: TObject);
    procedure ArrangeAll1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MDIParent: TMDIParent;

implementation
uses childform;

{$R *.dfm}

procedure TMDIParent.New1Click(Sender: TObject);
var
  Child:TMDIChild;
begin
  Child := TMDIChild.Create(Application);
  Child.Caption := '文档'+ IntToStr(MDIChildCount);
end;

procedure TMDIParent.Close1Click(Sender: TObject);
begin
  ActiveMDIChild.Close;
end;

procedure TMDIParent.CloseAll1Click(Sender: TObject);
var
  I:Integer;
begin
  with MDIparent do
  for I:=MDIChildCount-1 downto 0 do
    MDIChildren[I].Close;
end;

procedure TMDIParent.Tile1Click(Sender: TObject);
begin
Tile;
end;

procedure TMDIParent.Cascade1Click(Sender: TObject);
begin
cascade;
end;

procedure TMDIParent.ArrangeAll1Click(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure TMDIParent.Exit1Click(Sender: TObject);
begin
  Close;
end;

end.