Form dynamisch erstellen mit Frame

[moelski]

Moin !

Habe da diesen Code:

Delphi-Quellcode:

procedure TSourceNrCommRS232.ConfigDialog;
var
  Form        : TForm2;
  ConfigFrame : TFrame;
begin
  Form              := TForm2.Create(NIL);

  ConfigFrame        := TNrCommConfig.Create(Form);
  ConfigFrame.Parent := TForm2(Form).Panel2;

  TNrCommConfig(ConfigFrame).COMPort := FNrComm;
  Form.ShowModal;
  TNrCommConfig(ConfigFrame).COMPort := NIL; 

  ConfigFrame.Free;
  Form.Free;
end;

Form ist ein ganz normales Form mit nem Panel drauf. Ansonsten leer. Wird auch nicht zur Laufzeit mit automatisch angelegt.

Das Frame ist auch nix besonderes. Ein paar Konfig elemente drauf.

Wenn ich den Code starte sagt er mir:
Aus einem sichtbaren Fenster kann kein modales gemacht werden.

Kommt bei ShowModal.

Verstehe ich aber gerade nicht

[Bummi]

Hat Dein Form2 die Property visible=true?

[moelski]

Oh weia ... Ich geh ma schnell Mittagessen.

Das wars

[himitsu]

Oder ConfigFrame.Show; .

TForm2(Form) ist nicht nötig, da Form doch schon vom Typ TForm2 ist
und wenn du ConfigFrame auch als TNrCommConfig deklarierst, dann kannst du bei Diesem ebenfalls den Typecast weglassen.

PS: Ich hoffe du denkst auch noch an die Resourcenschutzblöcke.

[moelski]

Moin !

Zitat:

ist nicht nötig, da Form doch schon vom Typ TForm2 ist
und wenn du ConfigFrame auch als TNrCommConfig deklarierst, dann kannst du bei Diesem ebenfalls den Typecast weglassen.

Ja das ist mir klar. Form war nur vorher Tform. Und da brauchte ich den Cast.

Den zweiten Cast kann man sich sparen. stimmt.

Zitat:

Ich hoffe du denkst auch noch an die Resourcenschutzblöcke

Damit meinst du das ?

Sowas in der Form?

Delphi-Quellcode:

var
  myForm : TMyForm;
begin
  myForm := TMyForm.Create(nil);
  try
    myForm.ShowModal;
  finally
    myForm.Free;
  end;
end;

[himitsu]

Zitat von moelski:

Sowas in der Form?

Jupp

[moelski]

Kommt noch.