Class-reference types 类引用类型--快要失传的技术

最后在Mainform用下面的函数：
procedure TTMainForm.ShowForm(sFormClass: string);
var
  AppFormClass: TTAppBasicFormClass;
begin
  try
    AppFormClass := TTAppBasicFormClass(FindClass(sFormClass));
    with AppFormClass.Create(self) do begin
      Show;
    end;
  except
    ShowMessage(‘Class ‘+sFormClass+‘ not exist or not register!‘);
  end;
end;
这个函数的参数就是要打开的窗口类名

更进一步，因为项目中Menu的hint属性不会用到，可以用来存储要打开的类名，如下：
procedure TTMainForm.MainFormMenuClick(Sender: TObject);
var
  sFormName: string;
begin
  with sender as TMenuItem do begin
    sFormName := Trim(Hint);
    if sFormName<>‘‘ then ShowForm(sFormName);
  end;
end;

procedure TTMainFaceForm.SetMenuAction;
var
  i: integer;
begin
  for i:=0 to ComponentCount-1 do begin
    if Components[i] is TMenuItem then begin
      with Components[i] as TMenuItem do
        if Trim(Hint)<>‘‘ then OnClick := MainFormMenuClick;
    end;
  end;
end;

这样的话每增加一个菜单，只要指定菜单的hint属性就自动实现打开对应业务的功能，避免引用单元，也不用写菜单的onclick代码，非常简洁。当然这个还用到了RegisterClass和FindClass的技术，去看帮助就明白了。