Verschiedene Forms als MDICHilds

[freddiiii]

Hallo liebe dp-Freunde,
habe mal wieder ein wunderschönes Problem, bei dem ich grade nicht weiterkomm.
Also Folgendes:

Ich habe ein MDI-Hauptformular und möchte jetzt ein paar MDIChildformulare erzeugen.

Delphi-Quellcode:

...
begin
form1 := TForm1.Create(Self);
end;

begin 
bunteform := Tbunteform.Create(Self);
end; 

etc...

Nun ist die Frage, wie ich das über ne prozedur regeln kann oder ob das überhaupt so möglich ist?!

Delphi-Quellcode:

procedure MachMDIChild(mdivar : TForm; MDIFormtyp : ???);
begin
mdivar = mdiformtyp.Create(self)
end;

Das das so nicht funktioniert weiss ich, aber ist sowas ind er Art möglich, bzw. ist überhaupt verständlich was ich möchte?

Vielen Dank schon mal für die Hilfe

[Progman]

Bei Delphi ist doch ein MDIApp-Template dabei, da kann man doch "abgucken", wie das mit dem Erzeugen weiterer MDIChilds funktioniert, oder?

[freddiiii]

Ich sehe schon, das wird etwas länger dauern ;/

Ich weiss, wie man MDIChilds erzeugt(der Code steht sogar da), was ich will, ist das dynamische Erzeugen von MDIChilds verschiedener Formtypen!
TForm1 <> TForm2

fred

[Nuclear-Ping]

Das Createn davon ist eigentlich ein Einzeiler:

Delphi-Quellcode:

with TFormX.Create (Self) do
  Show;

// und in OnClose aller MDIChilds muss

  Action := caFree;

// stehen

FormX ist halt jeweils das MDI-Child, das du erstellen willst.
Über ne Prozedur geht das nur, wenn du auch einen Wert mitgibst, der darstellt, welche Form erstellt werden soll. Weil sonst weiß die Prozedur ja nicht, welche Klasse sie nehmen soll. Und dann wären wir schonwieder beim Einzeiler, dafür brauchst du keine Prozedur.

[Apollonius]

Delphi-Quellcode:

procedure THauptForm.MachMDIChild(var mdivar : TForm; MDIFormType : TFormClass);
begin
  mdivar:=MDIFormType.Create(Self);
end;

[freddiiii]

Wenigstens einer ders versteht, ich danke dir vielmalsApollonius, hast mirn Tag gerettet =)