childform.pas

来自「用Delphi编的一个简单的记事本,这里面实现了一些简单的功能~！」· PAS 代码 · 共 86 行

unit childform;

interface

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

type
  TFormChild = class(TForm)
    MainMenu1: TMainMenu;
    Edit1: TMenuItem;
    Replace1: TMenuItem;
    Find1: TMenuItem;
    N2: TMenuItem;
    Paste1: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    N3: TMenuItem;
    Undo1: TMenuItem;
    Richedit1: TRichEdit;
    ImageList1: TImageList;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Undo1Click(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure Replace1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormChild: TFormChild;

implementation

{$R *.dfm}

procedure TFormChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TFormChild.Undo1Click(Sender: TObject);
begin
  richedit1.Undo;
end;

procedure TFormChild.Cut1Click(Sender: TObject);
begin
  richedit1.CutToClipboard;
end;

procedure TFormChild.Copy1Click(Sender: TObject);
begin
  richedit1.CopyToClipboard;
end;

procedure TFormChild.Paste1Click(Sender: TObject);
begin
  richedit1.PasteFromClipboard;
end;

procedure TFormChild.Replace1Click(Sender: TObject);
begin
with ReplaceDialog1 do
  begin
    Position:=Point(RichEdit1.Left+RichEdit1.Width div 2,RichEdit1.Top);
    if RichEdit1.SelLength>0 then
      FindText:=RichEdit1.SelText
    else
      if Length(FindDialog1.FindText)>0 then
        FindText:=FindDialog1.FindText;
    Execute;
  end;
end;

end.