如何从 DLL Delphi 应用程序中获取所有 forms

Question

I want to get all the forms from a Delphi DLL Application for Casting, something like this but not using MDIChild forms but fsNormal forms: (This is from Delphi 4, I need something similar in Delphi RAD STUDIO but I dont know how to accomplish this )

for i:= Application.MainForm.MDIChildCount-1 downto 0 do
    if (Application.MainForm.MDIChildren[i] is FormNameNeeded) then
    begin
      variable := (Application.MainForm.MDIChildren[i] as FormNameNeeded).FunctionNeeded;
      break;
    end;

Answer 1

根据您在评论中所说的澄清（完全重申）您的问题，您不需要遍历所有 forms。

您在 Form2 的上下文中。 由于Form2是“ManualDocked to a Form1 PageControl”，那么 Form2 的Parent属性将是 PageControl（或者更可能是 TabSheet）

鉴于 TabSheet，访问托管它的表单很简单。 你可以使用这样的东西：

  var
    pCandidate:  TComponent;
  begin
    pCandidate:=Self.Parent;
    if(pCandidate<>nil) then
    begin
      while((pCandidate<>nil) And not(pCandidate is TForm1)) do
        pCandidate:=pCandidate.Owner;
    end;
    if(pCandidate<>nil) then
      TForm1(pCandidate).FunctionNameNeeded();
  end;