Hint错误！

Question

我不明白你为什么要screen参数进去，传Tapplication不就行了。procedure ShowMDIChild(app: TApplication); stdcall;
var
  p: ^LongInt;
  i: integer;
begin
  p := @(Application.MainForm);
  p^ := LongInt(app.MainForm);
  
  for i := 0 to app.MainForm.MDIChildCount - 1 do
    if (app.MainForm.MDIChildren[i] is Tform1) then
    begin
      app.MainForm.MDIChildren[i].BringToFront;
     app.MainForm.MDIChildren[i].SetFocus;
      Exit;
    end;  with TForm1.Create(application) do
  begin
    FormStyle := fsMDIChild;
    Show;
  end;
end;

Answer 1

三少：  如果你不传Screen到DLL中，DLL中MDICHILD能增加到EXE中app.MainForm.MDIChildren[i]数组去吗？

Answer 2

调用DLL中MDICHILD的时候，不需要传Screen的，只需要传Application就行了。luoweicaisd(笑三少) 没说错

Answer 3

如果不传Screen，怎么使EXE中MDIFORM的MDICHILDCOUNT、MDICHILDREN数组两属性正确呢？你们是否都作个例子研究?