u_workform.~pas

很好地delphi书籍源码

unit U_WorkForm;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin;

type
  TWorkForm = class(TForm)
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    ToolBar1: TToolBar;
    ToolButton9: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ActionList1: TActionList;
    FileNew1: TAction;
    FileOpen1: TAction;
    FileSave1: TAction;
    FileSaveAs1: TAction;
    FileExit1: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    HelpAbout1: TAction;
    StatusBar: TStatusBar;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileSaveItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    N1: TMenuItem;
    FileExitItem: TMenuItem;
    Edit1: TMenuItem;
    CutItem: TMenuItem;
    CopyItem: TMenuItem;
    PasteItem: TMenuItem;
    RichEdit1: TRichEdit;
    FontDialog1: TFontDialog;
    FontItem: TMenuItem;
    procedure FileNew1Execute(Sender: TObject);
    procedure FileOpen1Execute(Sender: TObject);
    procedure FileSave1Execute(Sender: TObject);
    procedure FileExit1Execute(Sender: TObject);
    procedure FontItemClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WorkForm: TWorkForm;

implementation

{$R *.dfm}

procedure TWorkForm.FileNew1Execute(Sender: TObject);
begin
  if Application.MessageBox('需要保存原文件内容吗!',
       '提示',MB_YesNo+MB_IconExclamation+MB_SystemModal)=IDYES then
    FileSave1Execute(self);
  RichEdit1.Lines.Clear;
end;

procedure TWorkForm.FileOpen1Execute(Sender: TObject);
begin
  if OpenDialog.Execute then
    RichEdit1.Lines.LoadFromFile(OpenDialog.FileName);
end;

procedure TWorkForm.FileSave1Execute(Sender: TObject);
begin
  if SaveDialog.Execute then
     RichEdit1.Lines.SaveToFile(SaveDialog.FileName);
end;

procedure TWorkForm.FileExit1Execute(Sender: TObject);
begin
  Close;
end;

procedure TWorkForm.FontItemClick(Sender: TObject);
begin
  if FontDialog1.Execute then
    RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;

end.