childform.pas.~2~

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

unit childform;

interface

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

type
  TMDIChild = class(TForm)
    MainMenu1: TMainMenu;
    Edit1: TMenuItem;
    Replace1: TMenuItem;
    Paste1: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Contents1: TMenuItem;
    SelectALL1: TMenuItem;
    Memo1: TMemo;
    FileF1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Exit1: TMenuItem;
    Close1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cut1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure Replace1Click(Sender: TObject);
    procedure SelectALL1Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Closeall1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MDIChild: TMDIChild;

implementation
uses ParentForm;
{$R *.dfm}

procedure TMDIChild.Cut1Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;

procedure TMDIChild.Copy1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

procedure TMDIChild.Paste1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

procedure TMDIChild.Replace1Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TMDIChild.SelectALL1Click(Sender: TObject);
begin
Memo1.SelectAll;
end;

procedure TMDIChild.New1Click(Sender: TObject);
begin
   MdIParent.New1Click(Self);
end;

procedure TMDIChild.Close1Click(Sender: TObject);
begin
  MdIParent.ActiveMDIChild.Destroy;
end;

procedure TMDIChild.Closeall1Click(Sender: TObject);
var
   I:Integer;
begin
  with MDIparent do
  for I:=MDIChildCount-1 downto 0 do
    MDIChildren[I].Destroy;
    ArrangeIcons;
end;

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Destroy;
end;

end.