【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Base_Unit.pas”一文,供大家参考学习
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.
上一篇:
Base_Form_U.pas
下一篇:
临床前药物安全性评价中毒性病理学新技术的应用