?? regunit.pas
字號:
unit RegUnit;
interface
uses Toolsapi, classes, Menus,ActnList;
procedure Register;
implementation
procedure Register;
var
RunNoDebugItem: TComponent;
begin
RunNoDebugItem := (BorlandIDEServices as
INtaServices).MainMenu.Owner.FindComponent('RunRunNoDebugCommand');
if RunNoDebugItem <> nil then
if RunNoDebugItem is TCustomAction then
TCustomAction(RunNoDebugItem).Visible := True;
// RunNoDebugItem := (BorlandIDEServices as INtaServices).MainMenu.Owner.FindComponent('RunRunNoDebugItem');
// if RunNoDebugItem <> nil then
// (RunNoDebugItem as TMenuItem).Visible := TRUE;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -