Konsole offen halten

[Telefonkabel]

Hallo zusammen!
Ich hab mal wieder eine kleine Noobfrage. Diesmal handelt es sich um eine Konsolenanwendung.
Und zwar ruft diese eine Procedure auf in der eine Form mit einem Button erstellt wird.
Die Konsole macht das auch, aber schließt sich sofort wieder.
Ich wollte fragen, wie ich die Konsole so lange aufbehalten kann, bis der Button in der Form gedrückt wird.

Dnake für eure Hilfe.

MfG
Telekab.

[Nils_13]

ReadLn;

[fwsp]

nimm nen booleschen wert den du auf true setzt wenn du die form erzeugst und auf false beim schließen. und den überprüfst du in der konsole. (while ... do)

Zitat von Nils_13:

ReadLn;

er will doch warten bis die form was gemacht hat, nicht warten, dass der user was in die konsole eingibt, oder?

[Niko]

Hi,

ohne dass ich sicher bin, ob sich VCL Objekte in einer Konsolenanwendung überhaupt sinnvoll verhalten: Hast du schon mal ShowModal probiert?

[fwsp]

Zitat von Niko:

Hi,

ohne dass ich sicher bin, ob sich VCL Objekte in einer Konsolenanwendung überhaupt sinnvoll verhalten: Hast du schon mal ShowModal probiert?

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

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

begin
  Writeln('ffijd');
  Form1 := TForm1.Create(Form1);
  Form1.ShowModal;
  Form1.Free;
  Writeln('dsfasd');
  Readln;

  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.

das funktioniert jedenfalls.