onclick的那一句有问题:
onclick := jinning;

解决方案 »

  1.   

    不行呀 
    现在变成[Error] Unit1.pas(63): Incompatible types: 'Parameter lists differ'了
    该怎么办呢??????????
      

  2.   

    OnClick(Sender: TObject);
    注意Sender参数是TObject,不是指针。
    你的OnClick(form1.jining)中form1.jining是指向过程jining的指针,
    Delphi当然会报错。
    而且,你的OnClick(form1.jining)本身就不对。
      

  3.   

    能不能就写form1.jining,不要onclick()
      
      

  4.   

    luxiaoban(鲁小班)  那代码我该如何得写呢?
      

  5.   

    你是要赋OnClick吗,如是的话,则声明为
        procedure jining(Sender: TObject);
    然后
    OnClick := jining;
      
      

  6.   

    xzgyb(回首往事,不堪回首)  多谢多谢 ,,,,,,,,,,
      

  7.   

    xzgyb(回首往事,不堪回首) 那么Sender: TObject到底是起什么作用的呢?
      

  8.   

    OnClick是TNotifyEvent型的
    TNotifyEvent = procedure (Sender: TObject) of Object
    所以你要这么写
    另外Sender保存的是当前发生事件的实例的引用,可能我说的不准确
    你可以在jining里写ShowMessage(TBitBtn(Sender).Name),就知道了