我现在刚刚开始学DELPHI,请大侠们多关照一下,小弟万分感激。1,我照着例子定义了一个MDI窗体。
   定义form1的formstyle属性为fsMDIForm,
   定义TM_UserSet的formstyle属性为fsMDIChild,
   然后做了一个菜单,点击事件中添加
   Application.CreateForm(TTM_UserSet,TM_UserSet);
   但是运行时提示什么没有找到MDI窗体之类话,请问应当怎么写?
2,我以前用VB执行下列语句
   T_New=Tnew xor '12'
   改用delphi后
   T_New:=Tnew xor '12'; 但是也不对,请教写法,谢谢。
因为找不到相关的教材,所以只好求助大侠们了。谢谢。

解决方案 »

  1.   

    if cpcin=nil then
        cpcin:=TTM_UserSet.create(self);
    将TM_UserSet的单元加入你的主窗口的USES中...
      

  2.   

    1.
    if TM_UserSet = nil then
        TM_UserSet := TTM_UserSet.create(self);
    将TM_UserSet的单元加入你的主窗口的USES中...(修改楼上的)
    2.
    xor好像只用于整形或布尔类型运算
      

  3.   

    1。我用了大侠的方法,还是不行啊。
       能不能说一下建立MDI的顺序?谢谢
       系统告诉我不能创建Form,因为没有活动的MDI。 
    2。我是在做加密算法遇到的问题,我想将两个字串异或怎么写?
      

  4.   

    if Not Assigned(TM_UserSet ) then
        TM_UserSet := TTM_UserSet.create(self);
      

  5.   

    1,直接
    TM_UserSet.show;
    2,T_New=Tnew xor 12;
    如果12是十六进制的,那还要转化!!!
      

  6.   

    错误是:"No MDI Forms as currently active"
      

  7.   

    你可以用向导做一个MDI的例子,你可以看到的,如果你还是看不懂的话,我再给你一段源码.向导的例子比较好的.我知道有点偷机取功,但很实用.简单化是一个程序员最终目标.
      

  8.   

    呵呵,这样吧,你从新起动一个项目,NEW ITEMS->点到PROJECTS页->MDI APPLICATION就行了.再试一试.如果不行,把你的要求说出来.
      

  9.   

    请问把一个普通窗体设置成一个MDI窗体要修改那些属性?
      

  10.   

    请问错误No MDI Forms as currently active怎么解决?
    form1怎么设为主窗体
      

  11.   

    project-->options--forms标签-->main form
      

  12.   

    你从新起动一个项目,NEW ITEMS->点到PROJECTS页->MDI APPLICATION,然后运行看看,有错吗,有的话就可能是你的delpji坏了,能运行,看看你的 uses有没有用错了,或到project-->options里看看吧