TCustomFormClass问题

[fengzairenjian]

程序如下
function getForm(strForm:ShortString):TCustomFormClass;
begin
if strForm='FormUser1' then
result:=TFormUser1
if strForm='FormUser2' then
result:=TFormUser2
end;

现在的问题是，若果我的窗体非常多，程序就很冗长，如果才能简化？

因为 窗体的名称和TCustomFormClass很有规律
比如：'FormUser1'与TFormUser1

如何通过strForm简单的获得TCustomFormClass？

[林石公]

可以考虑使用RegisterClass和FindClass来处理
用结构数组也是个方案，不过不够灵活

[starluck]

單元的

initializaion
RegisterClass(Tfrmuse1);
finalization
RegisterClass(TfrmUse1);



with TForm(GetClass('Tfrmuser1')).create do ...



直接手寫，可能有錯，見諒，實現方式就是這樣的。

[fztjava]

RegisterClass和FindClass来处理

[fengzairenjian]

程序如下
function TFormMain.CreateAndShowFormModal1(const AOwner: TComponent; const strForm:String;Caption:string;Param:string): boolean;
begin
with TForm(FindClass(strForm)).create() do
begin
Name := ClassName + IntToStr(Handle);
show;
end;
end;

initialization
RegisterClass(TFormUser);
finalization
UnRegisterClass(TFormUser);

执行到with TForm(FindClass(strForm)).create() do直接挂了

[dinoalex]

[Code=Delphi(Pascal)]
procedure TUnionFrm.Button3Click(Sender: TObject);
var
AFormClass:TComponentClass;
AForm: TForm;
str: string;
begin
str:= 'ExceptionsFrm'; // 窗口名字字符
AFormClass := TComponentClass(GetClass('T'+str));
if AFormClass <> nil then
begin
Application.CreateForm(AFormClass,AForm);
AForm.Show;
showmessage('OK');
end;
end;

initialization
RegisterClass(TExceptionsFrm);

end.
[/Code]

[fengzairenjian]

谢谢dinoalex，谢谢所有人，呵呵

按照dinoalex的方法OK啦，结贴，给分

[wufeng1205]

初看有效果,但不知道下面的函数是否可行:
procedure SelfShowForm(AForm:TCustomForm; TAForm:TCustomFormClass);