Eingabefenster automatisch anzeigen lassen

[haentschman]

Moin...

Zitat:

Und man kann die 2 Form ganz normal in Create erstellen nachdem das Hauptfenster Sichtbar ist. Warum sollte das nicht gehen?

Klar kannst du die Form im Create oder Show erzeugen. Du kannst die 2. Form aber im OnShow nicht über die Mainform Modal anzeigen! Im OnShow ist die Form zwar Visible=True aber menschlich noch nicht sichtbar. Erst wenn OnShow durchlaufen ist!

Zitat:

Das Hauptfenster sollte schon zu sehen sein und wenn das fertig aufgebaut ist, sollte das Eingabefenster aufpoppen

Zitat:

if fEntermanu.ShowModal = mrOK then begin

...ließ das nochmal...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Unit2;

type
  TForm1 = class(TForm)
    lblBlubb: TLabel;
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
  Form: TForm;
begin
  Form := Tform2.Create(nil);
  try
    Form.ShowModal; // das ist der Knackpunkt!
  finally
    Form.Free;
  end;
end;

end.

PS:

Zitat:

Ich schicke euch gerne noch die Kompilierte Exe wenn ihr das Projekt nicht zusammenbauen könnt.

...das grenzt an Beleidigung!