在delphi中怎样根据一个字符串（有效的窗体名称）打开一个窗体？

Question

比如：函数名称（‘Frm_formname’）

Answer 1

if FindGlobalComponent('form2') <> nil then exit;
    Application.CreateForm(Tform2,form2);

Answer 2

to cobi(我是小新)
Application.CreateForm(Tform2,form2);这句中的form2有不是一个字符串，第一句实际上是检测窗口是否存在，又没有实际意义。
  我的意思窗体名称存在数据库中，读取出来是一个字符串，通过那个方法可以打开。

Answer 3

FindWindow  可以返回这个窗口的句柄
参数要用Form的Name属性

Answer 4

// 如楼上 ,FindWindow(Nil,'TheCaption') ;//再function FindControl(Handle: HWnd): TWinControl;// extern PACKAGE TWinControl* __fastcall FindControl(HWND Handle);

Answer 5

var formclass:TComponentClass;
form:TForm;
formclass:=TComponentClass(GetClass('T'+formname1));
if formclass=nil then exit;
Application.CreateForm(formclass,form);
form.Show;

Answer 6

to  linzhisong(無聊);procedure TFrm_main.N64Click(Sender: TObject);
var formclass:TComponentClass;
form:TForm;
begin
formclass:=TComponentClass(GetClass('Tfrm_test'));
if formclass=nil then exit;
Application.CreateForm(formclass,form);
form.Show;
end;执行无任何动作发生，得到的formclass值为空。

Answer 7

先RegisterClasses([Tfrm_test]);然后执行！