宇宙TUI错误

Question

大家好我最近尝试使用Cosmos构建自己的操作系统，所以我已经完成了enogh命令以适应标准用户的账单，我的问题是程序无法使用多个命令，我想要使其像cmd一样，以下是使用System的代码示例; 使用Cosmos.Compiler.Builder;

type
  TTestForm = class(TForm)
    ...
  end;

implementation

uses
  themes;   

type
  TTestFormStyleHook = class(TFormStyleHook)
  protected
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  end;

procedure TTestFormStyleHook.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  case Message.Result of
    HTLEFT, HTRIGHT: Message.Result := HTBORDER;
    HTTOPLEFT, HTTOPRIGHT: Message.Result := HTTOP;
    HTBOTTOMLEFT, HTBOTTOMRIGHT: Message.Result := HTBOTTOM;
  end;
end;

initialization
  TCustomStyleEngine.RegisterStyleHook(TTestForm, TTestFormStyleHook);

end.

{

namespace CosmosBoot1

}`