Delphi专题 ·

delphi vcl 鼠标左键长按功能的实现

步骤

  • 添加[Additional]页下的[TApplicationEvents]控件
  • 申请全局的Integer变量,用来计算延时,如:YsNum: Integer;
  • 在ApplicationEvents1的OnMessage事件中,对捕获的WM_LBUTTONDOWN消息进行处理
  • 如果控件没有OnMouseUp事件,可在OnMessage事件中对WM_LBUTTONUP消息进行处理即可

具体代码

参与评论