Wie muss ich die Childforms richtig initialisieren und schliessen?
Hi Mario,
in Delphi 5 gibt’s in der Objektablage (Menüpunkt „Datei/Neu“; im erscheinenden Dialogfenster Registerlasche „Projects“) 'ne MDI-Anwendung als „Rohling“ (d. h. alle Standard-Menüpunkte sind vorhanden und funktionsfähig, aber sonst ist keine weitere Funktionalität implementiert). Guck mal bei Dir nach; wenn Du fündig wirst, kannst Du einfach die zugehörigen Quelltexte studieren.
Hier der Code zum Kreatieren eines neuen Child-Formulars:
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
Child.BorderIcons := [biSystemMenu,biMinimize];
Child.WindowState := wsMaximized;
Child.BorderIcons := [biSystemMenu,biMinimize];
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;
Der Menüpunkt „File/Close“ wird über die entsprechende Standard-Action gemanagt.
Ich hoffe, ich konnte Dir helfen.
Mit freundlichem Gruß
Martin