群里有人发出这么个需求，说是鼠标按住不放的同时开始计数累加1，放掉归零。 delphi 中没有鼠标按住不放的属性，只能借助MouseDown，Mouseup，加timer来实现了。 timer设置时间周期为50，可以随意调整。   unit Unit1;      interface    &nb