unit1.pas.~1~

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

unit Unit1;

interface

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

type
  TfrmMain = class(TForm)
    btnAddText: TButton;
    btnCut: TButton;
    btnCopy: TButton;
    btnSave: TButton;
    btnPaste: TButton;
    btnOpen: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    btnExit: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnAddTextClick(Sender: TObject);
    procedure btnCutClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure btnCopyClick(Sender: TObject);
    procedure btnPasteClick(Sender: TObject);
    procedure btnExitClick(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.btnCutClick(Sender: TObject);
begin
  //剪切
  if Memo1.SelLength>0 then
   Memo1.CutToClipboard;
end;

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

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

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

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

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

end.