我在BitBtn2中需要执行BitBtn1的操作,当然在BitBtn2中加入BitBtn1.click,但是我的BitBtn1执行以后我有个提示框,是或否的选择,怎么在BitBtn2中同时也执行这个是的操作?

解决方案 »

  1.   

    可以呀~~~~
    bitbtn2的 onclick 事件使用bitbtn1的onclick 事件就可以了
      

  2.   

    procedure TForm1.BitBtn2Click(Sender:TObject);
    begin
      BitBtn1Click(Sender);
    end;
      

  3.   

    用一个boolean变量在显示提示信息前来个判断就是了
      

  4.   

    Copy Bitbtn1 OnClick 代码  
    Paste Bitbtn2 Onclick 事件呵 ̄ ̄
      

  5.   

    BitBtn1Click(Sender);
    或者
    BitBtn1.onclick(self)
      

  6.   

    除了上面的也可以直接在Bitbtn1.click中,在你写的程序段最后加上Bitbtn2.click就可以了
      

  7.   

    如果两个按钮执行的内容完全一样的话,在Object Inspector 的Events页里设置一下就行了