小弟急求 查找出所有顶层窗口的办法

Question

小弟想 查找出 当前窗口中所有窗属性 设置为“总在最前面”的方法 
即我想实现 我在我的程序执行的时候 禁止其它的程序 窗口 被设置为总在最前面 
不知道有没有人听懂我的意思

Answer 1

Procedure SetFormStyle(AControl: TControl);
var
  i: integer;
begin
  for i := 0 to AControl.Count - 1 do
  begin
    if AControl.Controls[i]  is TForm Then
    begin
      SetFormStyle(AControl.Controls[i]);
      (AControl as TForm).FormStyle := fsNormal;
    end;
  end;
end;

Answer 2

错了，该从Application递归。
Procedure SetFormStyle(AControl: TControl);
var
  i: integer;
  cControl: TControl;
begin
  cControl := Application;
  for i := 0 to cControl.Count - 1 do
  begin
    if cControl.Controls[i]  is TForm Then
    begin
      SetFormStyle(cControl.Controls[i]);
      (cControl.Controls[i] as TForm).FormStyle := fsNormal;
    end;
  end;
  (AControl as TForm).FormStyle := fsNormal;
end;
先置为Normal，再
程序没调过，自己条！

Answer 3

Procedure SetFormStyle(AControl: TControl);
var
  i: integer;
begin
  for i := 0 to  (application.ComponentCount - 1) do
  begin
    if  application.Components[i] is TForm then
    begin
      SetFormStyle(application.Components[i]);
      (application.Components[i] as TForm).FormStyle := fsNormal;
    end;
  end;
end;