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 vclskin 5.40在2010安装方法

Delphi 递归遍历 treeview树节点

Delphi将目录删除到回收站中

Delphi idhttp post 提交 json

Delphi 遍历某字段并插入到combobox

Delphi 标题栏相关操作

Delphi 内存池

Delphi datasnap(midas)三层架构中，常用事件及其触发顺序

Delphi xe intraweb 程序在iis下的发布详细教程

Delphi安卓定位权限申请

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

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