unit1.pas

Java实例入门

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, ActnMan, ComCtrls, StdCtrls, StdActns, ToolWin,
  ActnCtrls, ActnMenus, ImgList, About, CustomizeDlg;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    StatusBar1: TStatusBar;
    ActionManager1: TActionManager;
    FileNew: TAction;
    FileSave: TAction;
    HelpIndex: TAction;
    HelpAbout: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    HelpContents1: THelpContents;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    FileExit1: TFileExit;
    ImageList1: TImageList;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionToolBar1: TActionToolBar;
    CustomizeDlg1: TCustomizeDlg;
    procedure FileNewExecute(Sender: TObject);
    procedure FileOpen1Accept(Sender: TObject);
    procedure FileSaveExecute(Sender: TObject);
    procedure HelpContents1Execute(Sender: TObject);
    procedure HelpIndexExecute(Sender: TObject);
    procedure HelpAboutExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FileName: String;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FileNewExecute(Sender: TObject);
begin
  RichEdit1.Clear;                       //清空文本编辑区域
  FileName := '未命名文件.txt';          //设置文件名为未命名文件
  StatusBar1.Panels[0].Text := FileName;  //在状态条上显示文件名
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
  FileName := FileOpen1.Dialog.FileName;
  StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.FileSaveExecute(Sender: TObject);
begin
  if(FileName = '未命名文件.txt') then
    FileSaveAs1.Execute
  else
    RichEdit1.Lines.SaveToFile(FileName);
end;

procedure TForm1.HelpContents1Execute(Sender: TObject);
const
  HELP_TAB = 15;
  CONTENTS_ACTIVE = -3;
begin
  Application.HelpCommand(HELP_TAB, CONTENTS_ACTIVE);
end;

procedure TForm1.HelpIndexExecute(Sender: TObject);
const
  HELP_TAB = 15;
  INDEX_ACTIVE = -2;
begin
  Application.HelpCommand(HELP_TAB, INDEX_ACTIVE);
end;

procedure TForm1.HelpAboutExecute(Sender: TObject);
begin
  with TAboutBox.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TForm1.ShowHint(Sender: TObject);
begin
  if Length(Application.Hint) > 0 then
  begin
    StatusBar1.SimplePanel := True;
    StatusBar1.SimpleText := Application.Hint;
  end
  else StatusBar1.SimpleText := '欢迎使用本软件！';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
  Application.HelpFile := ExtractFilePath(Application.ExeName) + 'TextEditor.hlp';
end;

end.