急急急！！！如何得到当前工程下所有窗口名列表

[hzm_8]

某个工程project1,建好了n个窗口 from1,form2,form3...form_n
如何得到当前工程下所有窗口名列表,最好能在下拉框中选择出来！！！在线等待

[lihuasoft]

var
  I: Integer;
begin
  for I := 0 to Screen.FormCount-1 do
    Self.ComboBox1.Items.Add(Screen.Forms[I].Name);
end;

[lihuasoft]

PS：

说“窗体”更准确一些...

[lihuasoft]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Self.ComboBox1.Items.Clear;
  for I := 0 to Screen.FormCount-1 do
    Self.ComboBox1.Items.AddObject(Screen.Forms[I].Name, Screen.Forms[I]);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  TForm(Self.ComboBox1.Items.Objects[Self.ComboBox1.ItemIndex]).Show;
end;

[hzm_8]

可以，搞定了，谢谢你！

[hzm_8]

不对呀！我有10个窗口，当前打开了2个窗口，我的意思是将10个窗体名全部下拉出来，上面脚本，只列出了当前打开的窗口