Консоль + форма

[Rin]

Создаю ConsoleApplication. Далее File->New->Form.
код dpr файла:

program Project1;

{$APPTYPE CONSOLE}

uses
  windows,
  SysUtils,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

var
 Str_source:string;
 i:integer;

begin
 SetConsoleTitle(PChar('Base Data'));
 repeat
 readln(Str_source);
 if pos('open',str_source)<>0 then
 begin

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 end;
 until str_source='quit';
end.

код Unit1.pas файла:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Free;
Application.Terminate;
end;

Действия:
1)В консоль прописываем: open.
2)Открывается форма.
3)Закрываем форму.
4)В консоль прописываем: open.
5)Открывается зависшая форма!!! (т.к. Application.terminated=True; )
Если идти через отладчик, то при 4 пункте открывается форма, но мы можем дальше продолжать движение по коду dpr файла, из-за terminated=true и Application.Terminated:=false не катит, даже если в модуле Forms на 1291 строке изменить это

property Terminated: Boolean read FTerminate;

на это:

property Terminated: Boolean read FTerminate write FTerminate;

.
Как быть, т.к. нужно будет открывать и закрывать форму по 10 раз.
Cоздавать форму динамически тоже не вариант, потому что на форме будет несколько компонентов, настройку которых осуществлять долго и муторно.

[veniside]

крутой изврат. Можно так:

program
  Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

type
  {*
    Pervert realization
  }
  myConsole = class(TPervert)
  protected
    function closeQuery(): boolean; override;
  end;

{ myConsole }

// --  --
function myConsole.closeQuery(): boolean;
var
  cmd: string;
begin
  Write('Form was closed, terminate application? [y/n]:');
  ReadLn(cmd);
  //
  if (1 = pos('y', LowerCase(cmd))) then
    //
    // application will be terminated
    //
    result := true
  else
    //
    // do what you need to do with console
    // when you exit from this routine with result = false, form will be shown again
    //
    result := false;
end;


// -- main --

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.pervert := myConsole.create();
  Application.Run;
end.

Ну и сама форма:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  {*
    Pure pervert class
  }
  TPervert = class
  protected
    function closeQuery(): boolean; virtual; abstract;
  end;

  {*
    Doomed form
  }
  TForm1 = class(TForm)
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    pervert: TPervert;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// --  --
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (nil <> pervert) then begin
    //
    Hide();
    CanClose := pervert.closeQuery();
  end;
  //
  if (not canClose) then
    show();
end;

end.

[Rin]

Всё бы хорошо, только вот при закрытии формы, закрывается весь проект ((((

[veniside]

так и задумано

Или выходим из myConsole.closeQuery() c result = true, тогда закрывается форма и проект. Или выходим с result = false, тогда форма опять показывается на экране.

Вобще задача какая? Если нужно параллельно ещё что-то в консоле делать, можно поток запустить и делать себе потихоньку, пока форма висит на экране или ждёт решения своей судьбы внутри myConsole.closeQuery().

[Rin]

задача такова. Открывается консоль и все задачи решаются в консоли:
поиск, отчёты и тд(работа с БД). При вводе "open" в консоли открывается\( показывается) форма , чтобы редактировать БД.