Question

怎样使用DELPHI编的控制台程序的字体有颜色

Answer 1

cnPack 控件包提供了 TCnConsole 组件，其功能描述如下：

其使用的代码，示例如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  CnConsole1.Enabled := true;
  Write('Hellow world! Please input: ');
  CnConsole1.SetTextColor(tfBlue + tfIntensity);
  Readln(s);
  CnConsole1.SetTextColor(tfRed + tfIntensity);
  Write('Your input: ');
  Writeln(s);
end;