这样的问题,给高分啊!

Question

aa(frmOne)？？不对吧，如果按你的申明应该是aa('frmOne');

Answer 1

除非你的frmOne是放在DLL文件中的，就可以。

Answer 2

定义：
function aa(var ChildFrmName: string):TfrmOne ;
实现：
function TForm1.aa(var ChildFrmName: string):TfrmOne ;
begin
  if Not Assigned(frmOne) then 
    Result := TfrmOne.Create(Application);    
end;
       
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

老兄，你还是把这个函数改改吧
function aa (formname,tformname : string)

Answer 4

function aa(var ChildFrmName: string)
 VAR AA:TFORM;
 BEGIN
  IF APPLICATION.FindComponent(ChildFrmName) THEN
    BEGIN
     AA:=APPLICATION.FindComponent(ChildFrmName)
     AA.SHOWMODAL;
    END;
END;

Answer 5

老兄，你还是把这个函数改改吧
procedure aa (formname,tformname : string);
这样所有窗体都可以用了

Answer 6

你们都没有看清楚题目啊!
也就是说在MIDAS结构中!我把所有子窗体的名称存在一个数据表的字段里!
我在主窗体中打开这个表得到该字段的值,此时就调用显示子窗体名为该字段值的
子窗体,该怎样写???

Answer 7

另外: 子窗体是: Available forms,不是Auto_create forms啊