16,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
liu23xing 2005-03-21
- 打赏
- 举报
按下去后让按钮的caption变一下下，然后可以触发另一个事件并让按钮的caption还原
hellolongbin 2005-03-21
- 打赏
- 举报
没找到按钮按下去的状态，用个别的控件偷天换日一把：
在窗体上放一个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;
在窗体上放一个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;
dahuzhi 2005-03-21
- 打赏
- 举报
意思就是，按下去按钮不会弹起来，再按一下就会弹起来，这两种状态编写不同程序！
何鲁青 2005-03-21
- 打赏
- 举报
回复人： whbo(王红波) ( ) 信誉：108 2005-03-21 13:53:00 得分: 0
不，
是同一种事件的！
-----------------------------------------
上面用在同一事件里难道不行吗？
不，
是同一种事件的！
-----------------------------------------
上面用在同一事件里难道不行吗？
todouwang 2005-03-21
- 打赏
- 举报
不，
是同一种事件的！
是同一种事件的！
何鲁青 2005-03-21
- 打赏
- 举报
首先建立一个全局变量（例如：a:boolean;）
begin
if a then
begin
procedure1;
a:=False;
end
else
procedure2;
a:=True;
end;
end;
begin
if a then
begin
procedure1;
a:=False;
end
else
procedure2;
a:=True;
end;
end;
