就是,像程序清单中的开头的几个声明,像 procedure FormCreate(Sender: TObject); 是怎么产生的???
当然我知道,这个声明可以直接单击窗体产生.但像其他的呢,像 procedure FormDestroy(Sender: TObject);这个怎么办?
还有那些
函数:像public 区 :procedure ConvolveI(.................) 等等怎么产生呢?谢谢!!!

解决方案 »

  1.   

    你给我分吧。
    类似于FORMQUERY这类,只需在Object inspector中,在属性和事件中的事件标签中找到FORMQUERY双击右侧即可产生此事件的框架代码,并自动在FORM的PUBLIC部分中加入这个事件。
    明白否?试一试吧。我也是学DELPHI不久,共同学习!
      

  2.   

    procedure ConvolveI(.................)
    这类的,你就要自己在public区写了
      

  3.   

    Object Inspector的Event页列出了当前对象的所有事件,每个事件都可以用下拉列表框选择一个已经存在的过程,或者双击下拉列表框,就产生一个新的过程的框架代码.而运行程序的时候,如果某个事件的处理过程是空的,即begin...end之间没有代码,就自动删除这个过程.
      

  4.   

    ok! 谢谢 上面的各位 ,我自己刚才也搞定了 :)那下面的函数
     function set255(clr :integer) :integer;
     begin
      if clr >254  then result :=255;
      if clr <1 then result :=0;
      if (clr >=1) and (clr <=254) then result:= clr; sh
     end;编译时问题 说是,没有返回值 ,我也觉的
    而且result 也没有定义呀  这是delphi中自带的吧?谁能解释以下 谢谢!
    给分了!!
      

  5.   

    function set255(clr :integer) :integer;
     begin
      if clr >254  then result :=255;
      if clr <1 then result :=0;
      if (clr >=1) and (clr <=254) then result:= clr;     //没有sh   end;
    那点有问题呀?
      

  6.   

    谢谢 "同志" 同志了!我知道的,只是现在 必须用这delphi, 所以想了解一点 ,谢谢大家!
      

  7.   

    result是系统预定义的变量,类型是函数的返回类型,函数返回时,它的值就是函数的返回值.从某种意义上说,把它当一个保留字也可以.
    函数的返回值可以用两种方法指定:1.在函数中给函数名赋值,像VB似的 2.给result赋值.一般提倡后者,因为,前者中函数名是"只写"的,即只可赋值,不可取值.而result既可读又可写.而且,很明显,后者要简明得多!
      

  8.   

    那个错误,应该是"返回值可能没有赋值"吧?应该只是个警告吧?
    就是----你的每一个给result赋值的语句都在if后边,那么,如果每个条件都不满足的话,result就成了没有初始化的了.按你的程序,显然那是不可能出现的情况,但...电脑就这么笨呀!它看不出来,它只从语法上分析,它要求你的程序从语法上必须保证对result的初始化.最后一句中 "if...then" 用一个else代替就行了.