unit1.pas

这是刚学的DELPHI所学的程序,一般的东西

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    redt1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure redt1SelectionChange(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
N9.Enabled:=False;
N10.Enabled:=False;
N11.Enabled:=False;
end;

procedure TForm1.redt1SelectionChange(Sender: TObject);
begin
if redt1.SelLength>0
then
  begin
  N9.Enabled:=True;
  N10.Enabled:=True;
  end;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
N9.Enabled:=False;
N10.Enabled:=False;
redt1.CutToClipboard;
N11.Enabled:=True;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
N9.Enabled:=False;
N10.Enabled:=False;
redt1.CopyToClipboard;
N11.Enabled:=True;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
redt1.PasteFromClipboard;
N9.Enabled:=False;
N10.Enabled:=False;

end;

end.