textview.pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit textview;

interface

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

type
  Ttextviewer = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    file1: TMenuItem;
    Open1: TMenuItem;
    Close1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Windows1: TMenuItem;
    Title1: TMenuItem;
    Cascade1: TMenuItem;
    CloseAll1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Open1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Title1Click(Sender: TObject);
    procedure Cascade1Click(Sender: TObject);
    procedure CloseAll1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
    filename:string;
  public
   procedure open(const Afilename:string);
    { Public declarations }
  end;

var
  textviewer: Ttextviewer;

implementation
  uses viewmain;
{$R *.DFM}
procedure  ttextviewer.open(const afilename:string);
  begin
    filename:=afilename;
    memo1.lines.loadfromfile(Filename);
    caption:=filename;
  end;
procedure Ttextviewer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Ttextviewer.Open1Click(Sender: TObject);
begin
  mdifileviewer.open1click(sender);
end;

procedure Ttextviewer.Close1Click(Sender: TObject);
begin
  CLOSE;
end;

procedure Ttextviewer.Title1Click(Sender: TObject);
begin
  MDIFILEVIEWER.TILE;
end;

procedure Ttextviewer.Cascade1Click(Sender: TObject);
begin
  MDIFILEVIEWER.CASCADE;
end;

procedure Ttextviewer.CloseAll1Click(Sender: TObject);
begin
   Mdifileviewer.closeallchildren;
end;

procedure Ttextviewer.Exit1Click(Sender: TObject);
begin
 mdifileviewer.exit1click(sender);
end;

end.