Delphi-Quellcode:
Function Tf_hauptfenster.SucheFormular(Formularname:String):TForm;
var i: Integer;
begin
with f_hauptfenster do for I := MDIChildCount-1 downto 0 do
begin
IF LowerCase(MDIChildren[i].Name) = LowerCase(Formularname) Then
begin
Result := f_hauptfenster.MDIChildren[i];
break
end;
end;
end;
nun habe ich das... das scheint zu funktionieren