Formular manuell createn

[volf]

Hallo,

wie kann man in delphi manuell (aus einer konsolenanwendung) formulare createn? Ich habe schon danach gegoogelt und bin auf zwei Varianten gestoßen.
1.

Delphi-Quellcode:

var

Formular:TForm;
.
.
.
begin

Formular:=TForm.Create(???);
Formular.show;
end.

Hier erscheint zwar das Formular, aber es ist eingefroren, so das man es nicht bewegen kann. (Stichwort: Thread?)

2.

Delphi-Quellcode:

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

Hier friert das Fenster nicht ein. Was ist den der Unterschied zum vorigen?

Wie kann ich jetzt z.B. einen Button aufs Formular platzieren:

Delphi-Quellcode:

  Buts:=TButton.Create(nil);
  Buts.Show;
  Buts.Parent:=Form1;

So habe ich es versucht.



Mfg

[Uwe Raabe]

Du kannst von einem Konsolenprogramm nicht erwarten, daß es wie ein GUI-Programm reagiert. Hier kannst du etwas darüber nachlesen.

[Noedel]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Formular : TForm;
    Btn : TButton;
begin
    Formular:=TForm.Create(Self);
    Formular.Show;
    Btn:=TButton.Create(Formular);
    Btn.Parent:=formular;
end;

müsste das sein, was du dir vorgelstellt hast ;)

[jaenicke]

Zitat:

Zitat von Noedel

müsste das sein, was du dir vorgelstellt hast ;)

Für ein VCL-Programm ja...
Hier geht es aber um ein Konsolenprogramm. Das ist nicht dasselbe.

[daywalker9]

Das Fenster hängt sich naturlich in einer Konsolenanwendung auf.

Da standartmässig keine Messages verarbeitet werden, wie es bei einer VCL Anwendung der Fall ist