如何把一个应用程序所有的显示的窗体加到列表中?

Question

var
    i:  integer;
begin
for I := 0 to form1.ComponentCount-1 do
 listbox1.items.add(form1.components[i].name)
end;

Answer 1

在MDIForm将MDIChildren的Name显示在listbox1中
var
  i: integer;
begin
  for i := 0 to self.MDIChildCount - 1 do
    if (MDIChildren[i] is FormClass) then
    begin
      listbox1.items.add(MDIChildren[i].name)
    end;
end;

Answer 2

如果程序是你编的，那么你可以在程序里控制阿
add ---->onshow 
del----->onhide
..................