upadchild.pas

是一个delphi的流程制作软件

unit UPadChild;

interface

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

type
  TUPadForm = class(TForm)
    RichEdit: TRichEdit;
    OleRE: TOleRE;
    PopupMenu1: TPopupMenu;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    Paste1: TMenuItem;
    PasteSpecial1: TMenuItem;
    Delete1: TMenuItem;
    N1: TMenuItem;
    Properties1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RichEditSaveClipboard(Sender: TObject; NumObjects, NumChars: Integer; var SaveClipboard: Boolean);
    procedure RichEditChange(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
  private
  protected
  public
  end;

implementation

{$R *.DFM}


uses
  UPadMain;

procedure TUPadForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  OleRE.FreeInterfaces;  // needs to be made automatic
end;

procedure TUPadForm.RichEditSaveClipboard(Sender: TObject; NumObjects, NumChars: Integer; var SaveClipboard: Boolean);
begin
  SaveClipboard := false
end;

procedure TUPadForm.RichEditChange(Sender: TObject);
begin
  MainForm.EditCopy1.Enabled := RichEdit.SelLength <> 0;
  MainForm.EditCut1.Enabled := RichEdit.SelLength <> 0
end;



procedure TUPadForm.PopupMenu1Popup(Sender: TObject);
begin
  MainForm.Edit1Click (Self)
end;

end.