一个小问题，按钮！！

Question

怎样实现让一个按钮按下后为一个值，再次按下后又为另一值，再按时又回到前一个值（如“运行”；“停止”两者之间切换）；最好能有实例

Answer 1

var
  flag:boolean;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin
  if not flag then
  begin
    button1.Caption:='运行';
    flag:=true;
  end
  else
  begin
    button1.Caption:='停止';
    flag:=false;
  end;
end;

Answer 2

默认设为运行if btn1.caption='运行' then
   btn1.caption='停止'
else if btn1.caption='停止' then
   btn1.caption='运行'