pictureview.pas

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

unit pictureview;

interface

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

type
  TpictureViewer = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Close1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Widows1: TMenuItem;
    Tile1: TMenuItem;
    Cascade1: TMenuItem;
    All1: TMenuItem;
    procedure Open1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Tile1Click(Sender: TObject);
    procedure Cascade1Click(Sender: TObject);
    procedure All1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    filename:string;
  public
    { Public declarations }
    procedure open(const afilename:string);
  end;

var
  pictureViewer: TpictureViewer;

implementation
 uses viewmain;

{$R *.DFM}
 //“打开”方法
procedure tpictureviewer.open(const afilename:string);
begin
    filename:=afilename;
    image1.picture.loadfromfile(filename);//装载图片
    caption:=filename;

end;
// “打开”菜单项
procedure TpictureViewer.Open1Click(Sender: TObject);
begin
  mdifileviewer.open1click(sender);//调用主窗体的打开菜单项的事件过程
end;
  //“关闭”菜单项
procedure TpictureViewer.Close1Click(Sender: TObject);
begin
  close;
end;
//“退出”菜单项
procedure TpictureViewer.Exit1Click(Sender: TObject);
begin
  mdifileviewer.exit1click(sender);
end;
//“平铺”菜单项
procedure TpictureViewer.Tile1Click(Sender: TObject);
begin
  Mdifileviewer.tile;
end;
//“层叠”菜单项
procedure TpictureViewer.Cascade1Click(Sender: TObject);
begin
  mdifileviewer.cascade;
end;
// “关闭全部”菜单项
procedure TpictureViewer.All1Click(Sender: TObject);
begin
  mdifileviewer.closeallchildren;
end;
procedure TpictureViewer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;//使窗体卸载
end;

end.