星链币 > delphi7在同一窗口内，有九个button（1~9），我想做一个button10，点击button10可以实现等同于随机点击了前

delphi7在同一窗口内，有九个button（1~9），我想做一个button10，点击button10可以实现等同于随机点击了前

2025-05-11 12:42:39

推荐回答（4个）

回答1：

button10两行代码就可以了
randomize;
(FindComponent('Button'+inttostr(1+Random(9))) as TButton).Click;

回答2：

你先定义一个全局变量J，WORD类型，这样定义J;word=1；再在界面上放一个计时器，在计时器的计时事件中写代码，让WORD全局变量加1：即J：=J+1；并且如果J>9则J=1，即 if j>9 then j:=1;
然后在九个button（1~9）的单击事件中写上你要写的代码；
在button10的单击事件写下如下代码，一句CASE of 语句：
CASE J OF
1：button1单击事件的过程名；
2：button2单击事件的过程名；
。。。。
9：button9单击事件的过程名；
end;
这不就是你想要的吗？
可要让计时器处于活动状态哟。

回答3：

回答4：

i don't know