Zitat von
Faxman:
könntest du das mal veröffentichen?
Schon ^^ hoffentlich wird das was ...
Delphi-Quellcode:
procedure TMeineForm.ShowMDIForm(AFormName: String; AClose: Boolean);
var
Form: TForm;
begin
Form := FindComponent(AFormName) as TForm;
If Assigned(Form) then
begin
If AClose then Form.Free else Form.Show;
end else begin
If not AClose then Form := TFormClass(FindClass('T' + AFormName)).Create(Self);
end;
end;
Bevor es jemand anderes merkt: Hier wird gerade nicht geprüft ob die gefundene Komponente wirklich vom Typ TForm ist ... wäre ggf. noch zu verbessern ^^
Außerdem: Die Forms die man erzeugen will, müssen alle noch mit RegisterClasses registriert werden.
Bastelt vlt. mit rum, weiß nicht ob das jetzt alles war was nötig ist ^^ ...