L Lee.JH Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-26 #1 var s:string; s:='form1'; 如何使用变量 s 做到form1.show的效果
G greenwon Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-26 #2 好象不行吧，pascal里没有宏定义的，我知道在Foxpro里就可以。
雪 雪中漫步 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-26 #3 var formname:string; formclass:Tformclass; temform:Tform; begin formname:='T'+s; formclass:=Tformclass(findclass(formname)); temform:=formclass.create(self); temform.show; end; 最后在要显示窗体(form1)的 单元代码最后加上 initalization registerclass(Tform1);
var formname:string; formclass:Tformclass; temform:Tform; begin formname:='T'+s; formclass:=Tformclass(findclass(formname)); temform:=formclass.create(self); temform.show; end; 最后在要显示窗体(form1)的 单元代码最后加上 initalization registerclass(Tform1);
F fxjpost Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-26 #4 可以實現上面兄弟做的可能不是別人想要的結果，你那樣做是生成一個新的窗體給它一個窗體名 上面什麼也沒有，沒用
