光看帮助你大概搞不清楚这个有什么用。我举一个例子,一般mainform都有很多菜单按钮,用来打开不同的窗口,通常做法要在uses部分添加所有要引用的单元,十分麻烦,用上面的技术就可以避免引用。假设所有的业务窗口都从TAppBasicForm继承,你可以声明这样的类型:
TTAppBasicFormClass = class of TTAppBasicForm;
然后在每个业务窗口代码结尾处加上:
initialization
RegisterClass(TBusMemberNewForm); //TBusMemberNewForm从TAppBasicForm继承
finalization
UnRegisterClass(TBusMemberNewForm);
最后在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的技术,去看帮助就明白了。
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/p/6364993.html