Delphi专题 ·

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

步骤

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

具体代码

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of
    WM_LBUTTONDOWN:
      begin
        YsNum := GetTickCount;
      end;
  end;
end;

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
{$WARNINGS OFF}  // 使用GetTickCount函数,编译时会产生一个WARNINS的提示,在此可将WARNINGS开关关闭
  if GetTickCount - YsNum > 500 then // 此处500为延时500ms
  begin//这里是个例子:如果长按时间超过500ms,则选中身份证号第9位—第18位;否则就清空edit
    // ========在此处填写你自己的代码========
    Edit1.SelStart := length(Edit1.Text) - 10;
    Edit1.SelLength := length(Edit1.Text) - 8;
  end
{$WARNINGS ON}
  else
    Edit1.Clear;
end;

参与评论