关于按钮的问题！

Question

按下去是一种方法，然后再按一下又是另外一种方法？

Answer 1

首先建立一个全局变量（例如：a:boolean;）
begin
         if a then
         begin
             procedure1;
             a:=False;
         end
         else
             procedure2;
             a:=True;
         end;
end;

Answer 2

回复人： whbo(王红波) ( ) 信誉：108  2005-03-21 13:53:00  得分: 0  
 
 
   不，
是同一种事件的！
-----------------------------------------
上面用在同一事件里难道不行吗？

Answer 3

没找到按钮按下去的状态，用个别的控件偷天换日一把：
在窗体上放一个panel，弄的跟button一样，然后
procedure TForm1.Panel1Click(Sender: TObject);
begin
    if panel1.BevelOuter=bvRaised then
    begin
        panel1.BevelOuter:=bvLowered;
        procedure1;
    end
    else
    begin
        panel1.BevelOuter:=bvRaised;
        procedure2;
    end;
end;

Answer 4

按下去后让按钮的caption变一下下，然后可以触发另一个事件并让按钮的caption还原