如何列举项目中的所有Form，并打开它?

Question

没有其它目的，只是想做一个打开窗口的通用过程。设先将Form.name保存在后台数据库,再根据所选的Form.Name启动该窗体。不知是否可以实现?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to application.ComponentCount-1 do
  begin
    if application.Components[i] is Tform then
    begin
      showmessage(tform(application.Components[i]).Caption );
    end;
  end;
end;

Answer 2

outer2000(天外流星):
  你这样好象只有Create的窗体才能找到!？