ich möchte folgende Konstruktion: Hauptwindow-->MDIWindow-->Childwindow. Geht das?
ich habe folgendes gemacht:
Hauptformular ist schon aktiv nun,
erstelle ich aus einem Hauptformular heraus ein
MDI Formular:
if not IsFormOpen('Form2') then
begin
Form2 := TForm2.Create(Self);
Form2.FormStyle := fsMDIForm;
Form2.Show;
end;
das geht ja noch ganz gut und sehe auch das MDIFormular.
Nun möchte ich vom neu erstellten MDIFormular aus mit einem Button beliebig viele ChildWindows erzeugen:
zB. so:
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if Form2.Visible then
Form2.CreateMDIChild('Auftr_12345');
end;
procedure TForm2.CreateMDIChild(const Name: string);
var
Child: TForm3;
begin
Child := TForm3.Create(Application);
Child.Caption := Name;
end;
wenn ich das mache, bekomme ich folgende Fehlermeldung:
Exception der Klasse EInvalidOperation aufgetreten.
Meldung: Formular kann nicht erstellt werden, zur sind keine
MDI-Formulare aktiv!
Warum kennt er das
MDI-Formular nicht!
Hat jemand eine Idee?
fredi