delphi - 表格已经打开了吗？

Question

我一直在使用以下代码来检查表单是否已存在:

function FormExists(apForm: TObject): boolean;
var i: Word;
begin
  Result := False;
  for i := 0 to Application.ComponentCount-1 do
    if Application.Components[i] = apForm then begin
      Result := True;
      Break;
    end;
end;

我几年前从我参与的一个项目中得到了它。这是我的第一个 Delphi 项目之一。

它有效。

但这周我开始思考是否有更好、更快的方法来做到这一点。

Answer 1

您可以使用Screen.Forms为此。它减少了您迭代的项目:

function FormExists(apForm: TForm): boolean;
var 
  i: Word;
begin
  Result := False;
  for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i] = apForm then 
    begin
      Result := True;
      Break;
    end;
end;

但是，值得注意的是，如果您已经有 apForm，那么您就知道它存在，无需搜索它。