频道分类

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

作者:admin 来源: 日期:2020/2/20 20:57:11 人气: 标签:

 
步骤
添加[Additional]页下的[TApplicationEvents]控件
申请全局的Integer变量,用来计算延时,如:YsNum: Integer;
在ApplicationEvents1的OnMessage事件中,对捕获的WM_LBUTTONDOWN消息进行处理
如果控件没有OnMouseUp事件,可在OnMessage事件中对WM_LBUTTONUP消息进行处理即可
具体代码
Delphi/Pascal
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;

来源:https://www.amingstudio.com/delphi/628.html