mainfrm.pas

Delphi高级程序开发配书源代码,可以循序渐进的学习Delphi.

unit MainFrm;

{ MemoEdit是一个简单的MDI风格的文本编辑器，可作为OLE自动化服务器.这个应用程序包
  含以下单元:
  MainFrm    MDI主窗体.
  EditFrm    MDI子窗体类和自动化类.
  MemoAuto   应用的自动化对象.

  为了注册MemoEdit应用作为一个OLE自动化服务器,运行命令行"MemoEdit /regserver".
  取消注册应用可以用"MemoEdit /unregserver"命令.你也可以开发环境中选择"RUN"菜单，
  在弹出的子菜单中选择“Parameters”，会弹出一个Run Parameters对话框，输入应用
  (MemoEdit)和参数(regserver). }

interface

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

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    FileMenu: TMenuItem;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileExitItem: TMenuItem;
    WindowMenu: TMenuItem;
    WindowCascadeItem: TMenuItem;
    WindowTileItem: TMenuItem;
    WindowArrangeIconsItem: TMenuItem;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    procedure FileNewItemClick(Sender: TObject);
    procedure FileOpenItemClick(Sender: TObject);
    procedure FileExitItemClick(Sender: TObject);
    procedure WindowTileItemClick(Sender: TObject);
    procedure WindowCascadeItemClick(Sender: TObject);
    procedure WindowArrangeIconsItemClick(Sender: TObject);
  public
    Local: Boolean;
    NewFileName: string;
    function CreateMemo(const FileName: string): TEditForm;
    function CreateMemoLocal(const FileName: string): TEditForm;


  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FileNewItemClick(Sender: TObject);
begin
  CreateMemoLocal('');
end;

procedure TMainForm.FileOpenItemClick(Sender: TObject);
begin
  OpenDialog.FileName := '';
  if OpenDialog.Execute then CreateMemo(OpenDialog.FileName);
end;

procedure TMainForm.FileExitItemClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.WindowTileItemClick(Sender: TObject);
begin
  Tile;
end;

procedure TMainForm.WindowCascadeItemClick(Sender: TObject);
begin
  Cascade;
end;

procedure TMainForm.WindowArrangeIconsItemClick(Sender: TObject);
begin
  ArrangeIcons;
end;

function TMainForm.CreateMemo(const FileName: string): TEditForm;
begin
  NewFileName := ExpandFileName(FileName);
  Result := TEditForm.Create(Application);
end;

function TMainForm.CreateMemoLocal(const FileName: string): TEditForm;
begin
  Local := true;
  NewFileName := ExpandFileName(FileName);
  Result := TEditForm.Create(Application);
end;
end.