点击按钮,调用onclick事件,可是如何判断按钮被点击过哪??
谢谢指点

解决方案 »

  1.   

    这个过程执行就执行了,那么你可以加个变量,当没按过是FALSE,按了变TRUE不就得了
      

  2.   

    或者用静态变量
    procedure YouForm.ButtonOnClick(Sender: TObject);
    const IsClicked:boolean = false;
    begin
      if not IsClicked then begin
        DoClick();  // Click代码
        IsClicked := true;
      end;
    end;
    别忘了打开Assignable typed constants选项.
      

  3.   

    !最简单的办法:
      button的tag默认为0,你可以OnClick一次就Inc(tag),这样还能知道按了几次,也不必额外加变量。