自己定义的ShowForm(Form:TForm;FormClass:TFormClass)函数

Question

为了显示窗体我
自己定义了一个ShowForm(Form:TForm;FormClass:TFormClass)函数
但为什么会弹出List index out of bounds(0)的错误
结构如下:共两个窗体MainForm,TestForm和一个公共单元Public
//------------------------
MainForm单元调用ShowForm函数ShowForm(TestForm,TTestForm);
 
//------------------------
Public单元定义函数ShowForm
ShowForm(Form:TForm;FormClass:TFormClass);
begin
  if not Assigned(Form) then
    Form:=FormClass.Create(Application);
  with Form do
  begin
    try
      Show;
    except
      exit;
    end;
  end;
End;
请高手指点,在先等待

Answer 1

TestForm的create等等事件中有代码吗？

Answer 2

List out of bound错误一般是数组越界，你这段代码应该不会出现这样的错误。你在Delphi环境中调试运行看看哪一行出错。 ________________________欢迎访问和宣传我的论坛http://hthunter.vicp.net/