unit1.pas.~4~

Delphi 2005程序设计教程_实例源文件和教学课件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls, Borland.Vcl.Menus,
  Borland.Vcl.ComCtrls;

type
  TfrmMain = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    PrintDialog1: TPrintDialog;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    N15: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Memo1: TRichEdit;
    procedure ReplaceDialog1Replace(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnAddTextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.nfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  //初始化
  Memo1.Lines.Text:='Memo组件示例';
end;

procedure TfrmMain.btnAddTextClick(Sender: TObject);
begin
  //添加文本
  Memo1.Lines.Add('{请添加文本}');
end;

procedure TfrmMain.N3Click(Sender: TObject);
begin
   //保存文件
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
  //打开文件
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TfrmMain.N5Click(Sender: TObject);
begin
   Close;
end;


procedure TfrmMain.N7Click(Sender: TObject);
begin
  if Memo1.SelLength>0 then
    Memo1.CutToClipboard;
end;

procedure TfrmMain.N8Click(Sender: TObject);
begin
  if Memo1.SelLength>0 then
    Memo1.CopyToClipboard;
end;

procedure TfrmMain.N9Click(Sender: TObject);
begin
  if Memo1.SelLength=0 then
    Memo1.PasteFromClipboard;
end;

procedure TfrmMain.N17Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    Memo1.Font :=FontDialog1.Font ;
end;

procedure TfrmMain.N18Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Memo1.Font.Color :=ColorDialog1.Color ;
end;

procedure TfrmMain.N11Click(Sender: TObject);
begin
  FindDialog1.Execute;
end;

procedure TfrmMain.N12Click(Sender: TObject);
begin
 ReplaceDialog1.Execute
end;

procedure TfrmMain.N14Click(Sender: TObject);
begin
 if PrinterSetupDialog1.Execute then
    Memo1.Color :=ColorDialog1.Color ;
end;

procedure TfrmMain.N16Click(Sender: TObject);
begin
 if PrintDialog1.Execute then
    Memo1.Color :=ColorDialog1.Color ;
end;

procedure TfrmMain.FindDialog1Find(Sender: TObject);
begin
   Memo1.SetselText (ReplaceDialog1.FindText) ;
end;

procedure TfrmMain.ReplaceDialog1Replace(Sender: TObject);
begin
  Memo1.SetselText(ReplaceDialog1.FindText) ;
end;

end.