この発言に対し以下のコメントが寄せられています

#01112　UnC             さん　RE:コンソールと窓の共存方法。




こんにちは、たけ(tk)です。



  コンソールと窓の共存の方法です。

  Apollo（http://www.moriq.com/apollo/） のメーリングリスト
  （http://www.freeml.com/GroupInfo.cgi?Group=ap-list）
  で、もりきゅう さんに教わったところでは、

》uses
》  SysUtils, Classes, Ruby;
》
》{$R *.RES}
》{$APPTYPE CONSOLE}

でいいと言うことなので、サンプルを作ってみました。

  問題点：コンソールで ctrl+C を押すと全体が落ちるみたいです。

  【サンプル】
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
{$APPTYPE CONSOLE}
var
  s:string;
begin
  write('show form (y/n)? ');readln(s);
  if ( s <> '' ) and ( upcase(s[1])='N') then begin
    write('then exit.. ');readln(s);
    exit;
  else
    write('then show form.. ');
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.caption := 'フォームクリックでキャプション変更';
  Application.Run;
end.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormClick(Sender: TObject);
var
  s:string;
begin
  hide;
  WriteLn('Input string for Form''s caption.');
  Write('prompt : '); readln(s);
  caption := s;
  show;
end;
end.

  たけ(tk)=熊谷 秀武  http://member.nifty.ne.jp/take_tk/

Original document by 熊谷秀武        氏 ID:(GGB03124)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。