?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -