Question

delphi button如何实现按键按下暂停 再按下启动

1个button控件如何实现按下启动，再按下暂停，再按下停止功能。

Answer 1

1.如果要按下和弹起两种状态的话，标准组件中要使用TSpeedButton，其属性设置为：Flat:=true;
GroupIndex:=1;AllowAllup:=true;
这样按钮第一次点击时，处于按下状态，第二次点击处于弹击状态，相关代码：
with Speedbutton do
begin
if Down then showmessage('Down')
else Showmessage('Up');
end;

2.如果就是点一下设置一下状态，那就用按键本身的tag属性来Case一下即可
with button do
begin
case tag of
0:begin
showmessage('启动');
tag:=1;
end;
1:begin
showMessage('暂停');
tag:=0;
end;
end;
end;

Answer 2

case of语句

Answer 3

那要用一个变量来做判断！！

追问

能否解释的详细点？

追答

我简单的测试了
if Edit1.text='b' then //最开始可以给一个初始值b
begin
showmessage('开始');
Edit1.text:='a';
你所要的操作
exit;
end;
if Edit1.text='a' then
begin
showmessage('暂停');
你所要的操作
Edit1.text:='c';
exit;
if Edit1.text='c' then
begin
showmessage('结束');
你所要的操作
Edit1.text:='a';
exit;

end;