鼠标按住不放自动累加的实现

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