可以设一变量,如flag为boolean初值为false;
当按钮按下时:
flag:=true;
if flag then
begin
  ...
end
else 
begin
  ...
end;

解决方案 »

  1.   

    to  lydwei()
    else 
    begin
      ...//这一部分永远不会执行!!!!!!!
    end;
      

  2.   

    应该是这样
    在窗口onshow中设置
    flag:=true;
    然后在按钮事件中
    if flag then
    begin
      ....
      flag:=false;
    end
    else
    begin
       ....
    end;
      

  3.   

    botton.Tag初始为0
    if botton.tag = 0 then
       begin
       第一次按下
       botton.tag = 1
       end
    else
       第二次按下
      

  4.   

    其实在delphi中很多地方都可以用到tag的,而且很有用
      

  5.   

    同意 breezing(网上的小鱼)
    tag确实很有用的,在代码重用等方面有很好的效果
      

  6.   

    是啊,用一个全局boolean变量来管理这个事件就行了,不是太难吧:)
      

  7.   

    不要用变量,多麻烦那
    用.tag属性就好