窗体1和窗体2 各一个button，只有单击事件，但是双击窗体1的按钮，会执行窗体2按钮的单击事件

weimei521 2020-01-15 05:46:41

窗体1和窗体2，各一个Button,窗体1按钮单击事件，是打开窗体2，两个按钮位置都在屏幕中间。现在双击窗体1的按钮，会执行窗体2按钮的单击事件，有没有什么办法可以让窗体2按钮的第一次单击无效呢

...全文

248 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

jjpweb 2020-01-19

打赏
举报

显然是你连击造成的

今晚打老虎1234 2020-01-17

打赏
举报

定义一个integer或其他变量，当第一个BTN点击后，将integer变量设为1，第二个按钮点击前先判断integer的值，如果不等于则不执行（integer变量的默认值是0）

日立奔腾浪潮微软松下联想 2020-01-17

打赏
举报

显然是你连击造成的

天行归来 2020-01-15

打赏
举报

弄个计时



procedure TForm2.OnBtnClick(sender: TObject);
begin
  //窗体创建到点击事件，如果1秒内（根据需要调整），认为无效点击。
  if (GetTickCount-FTick)<1000 then exit;
  ShowMessage('you click me');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  FTick := GetTickCount();
  Button1.OnClick := OnBtnClick;
end;