base_unit.pas

学校班级教学管理系统 DELPHI7下的

unit Base_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdActns, ActnList;

type
  TfrmBase = class(TForm)
    ActionList1: TActionList;
    PopupMenu1: TPopupMenu;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    Delete1: TMenuItem;
    N1: TMenuItem;
    SelectAll1: TMenuItem;
    Undo1: TMenuItem;
    Paste1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBase: TfrmBase;

implementation

{$R *.dfm}

procedure TfrmBase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action :=caFree;  //释放窗体
end;

procedure TfrmBase.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if KEY = #13 then
    SelectNext(ACtiveControl, True, True);
end;

end.