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

本文整理自网络，侵删。

 
步骤
添加[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
 

相关阅读 >>

文件占坑对付云安全

Delphi 判断iso文件，iso文件头， iso filehead

Delphi 判断文件名是否有效

Delphi 下载并运行的代码

Delphi 几个dataset数据导出到xml word excel txt html的函数

Delphi - 右滚动文字

Delphi xe5-android开发 目录结构

Delphi图片格式判断

Delphi unigui unistringgrid1 清空

dephi获取系统常量

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi vcl 鼠标左键长按功能的实现