regunit.~pas

来自「run without debugging delphi expert」· ~PAS 代码 · 共 27 行

unit RegUnit;

interface

uses Toolsapi, classes, Menus;

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.