delphi 判断子窗体是否打开

在Delphi中，可以通过遍历应用程序的窗体列表来判断子窗体是否已经打开。具体做法如下：

首先，通过使用Application对象的MainForm属性获取主窗体：

mainForm := Application.MainForm;

接下来，通过遍历主窗体的Children属性，可以获取所有子窗体对象。可以使用TForm类型的变量来遍历子窗体列表：

for i := 0 to mainForm.ChildCount - 1 do
begin
childForm := mainForm.Children[i];

// 判断子窗体是否已经打开的逻辑
if (childForm is TChildForm) and (childForm.Visible) then
begin
// 子窗体已经打开
// 做出相应的处理
...
end;
end;

上述代码中，我们假设子窗体的类型为TChildForm，并且判断子窗体的Visible属性是否为True，来确定子窗体是否已经打开。

当找到已经打开的子窗体时，可以进行相应的处理，比如给出提示、禁止再次打开等。同时也可以通过调用子窗体对象的方法或属性来与子窗体进行交互。

总之，通过遍历窗体列表并判断每个窗体对象的属性，可以判断子窗体是否已经打开。