Allow multiple MDI Parent Forms on same Application
I'm trying follow what was suggested in this answer, changing this part of Vcl.Forms.pas : procedure TCustomForm.CreateWindowHandle(const Params: TCreateParams); var CreateStruct: TMDICreateStruct; NewParams: TCreateParams; begin if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then begin {if (Application.MainForm = nil) or (Application.MainForm.ClientHandle = 0) then raise EInvalidOperation.Create(SNoMDIForm);} with CreateStruct do begin szClass := Params.WinClassName; szTitle := Params.Caption; hOwner := THandle(HInstance); X := Params.X; Y := Params.Y; cX := Params.Width;