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!
